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Abstract 


‘Abstract data types-are the basis of an emerging methodology of computer programming. The 
only existing languages supporting ak ractodali types directly, CLU .and: Strula, both require 


compacting garbage: collection, and thus: they are not suitable for many applications. This 
thesis presents the design of -a new. language incorporating ‘abstract“data types; the language 
requires only a run-time.stack, and not.garbage collection. “Flis-new danguage, called ASBAL 
(for “A Stack Based Abstraction: Language’), is based onGLU,:and -borrews:as many features 
as possible directly from: it. Virtually avery ee feature of CLU: is carried over into 
“ASBAL. in some form, ‘and ‘extensions ‘ate included aiken - “eeenaary. ‘For example, the 
"maximum size of ob jects. becomes an issue.and is resolved ‘bythe mn of size. parameters to 
‘types. “Also, a limited ‘facthity for @ynamic storage alloca iis Incorporated in ASBAL to 
compensate for the removal of a garbage:collected ‘heap. “Tinis: fatty allows. list and graph 
‘steasctures to. be: built within. the framework of the stack-white:preventing dangling references 
asia "side-effect" of compile-time type checking. | 
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1. Introduction 


In récent years the correttness of cofptiter sgihin Vics Destine a topic of growing 

interest. One approach taken ‘to enhancing” ‘correctness ‘is the” ‘formutation ‘of design’ and 
programming methodotogies. ‘It is hoped that tirrecnvess’ ailt be: achieved by usifig appropriate 
structure and discipline in the prograshming process. rocess. The tke’ ot’ “abstract data types! is one of 
the techniques being developed. Abstract ‘datatypes appear: proniiding for ‘Siniplitying: proofs 
of program correctness, and seem to be inatutaf for peopl te in programming. and. in 
communicating among themselves about pebgren. ? 


LL. Motivation 

To date only two programming languages h have. been “implemented that provide and 
enforce the abstract data type. discipline directly, in the language: CLU (Liskov77], and 
extensions to ‘Simuia [Dahiesl. However, ‘both languages require compacting garbage 
collection. The main difficulty with xarbege ‘collection is. the “embarrassing pause” which 
occurs whenever the garbage. collector is invoked. Such a pause is intolerable in ‘reat-time 
systems such as operating systems, process contro! programs, etc. One way to eliminate the 
pause is to use parattel (Steete?S]’ or inctemieital: Chakér7?, Beutsch76; ‘Barth7n garbage 
"collection: techniques. These methods have-the effect of ipreading 
over the normal protessing time. Unfortunately, “efficient paraitel garbage collection probably 
requires special hardware, and is therefore fidt suitable: tor''miost spplications, especially those 
relying. on existing hardware. Incremental garbage coflection ' Appears to be more promising, 
but both parallel and incremental techniques for ob jects of different sizes (we say variable size 


objects) copy from one ob ject space to another. Each space is‘one half of the total free memory; 


eee 


ing the pause ‘out ‘uniformly 


thus the maximum amount of memory usable with the parallel or incremental techniques is half 
of the actual memory provided. This severely a tas aiasem taal ‘poisible on most 
machines, particularly mini" ‘and erp, sa bane el adress spaces to. 2 begin 


1. We assume the reader is familiar with abstract data types. For those lesa well versed: in. the 
recent literature the following papers may be helpfut: [Liskov7?, Wulf 76a, Liskov75, Guttag75). 
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with. Another drawback to garbage collection is that the: memory manapemcat system might be 
a_ prime candidate: far using abstract data types. Clearly: the garkage collector, 4s part of the 


memory management sywem. If the language sthich alles one 40.900, abstract data types 
_ Tequires garbage collection, then that language. caonet-bp used to setite, thee: garbage. coltector.| 
One might hope that.».useful, subset of the Jjanguage:-that.sbens.aet. require: garbage collection 
could be used to write the garbage, collector. erg. sane: reeset sive oft GLU or 

. Simula: they. depend. on.garbage covection entirety. 


_ We feel that the ultimate solution.to; the garta 


: thie beailding parallel 


| garbage collection into computer hardware, . As the saat, Se continges.to- drap,-and the 


cost. of of software. predominates, it may pay to doable the memory. required to have parallel or 
incremental garbage collection, and thus. make avatiahle elegant and. powetPat ee 
languages that ease software development. diewever, in: the: testenien, erect far: ‘Spplications wher 


“the added hardware cost cannet be jpsified-er. adiiress spece:ie.at 2. premium, we feel another 
‘solution’ is in order. tn this these we: ‘present a naw progremening, angusege incorporating 


SPERTIAN 


" abstract data types ina manner that devs.net oa commana 


+$.2. Fhe Goal. 


We have. designed a-new language with abstrass dasa: types: that will run with aniy a 


_Tun-time stack. This stack is similar to thane.used by other ‘high Jovel languages such. as Algol, 
_.,, Pascal, and PL/1? Rather. than designing: tis new language frems-scratch, we: have used CLU 


as a basis and have concentrated on retnining .as. oor, its feateres .94,, possible. To 
understand what we: have-tione Firat Fura | why gatbear: 4 ‘ta-repanpeny t in 
CLU. | 


A Without special ‘tricks, ‘that is. We feel: that tricks. af this sort should Be-ewvokted. and an 


efegant sotution found thit dees not involves eniéks-or 4 
2. For some applications static allocation might be agprepriate, we did -net investigate that 
approach. However, see ne weagettions | for farther: vemarch ih 1 the fast chapter for more 


comments abeut'tt. 


il 


| 13. CLU and Garbage Collection 


The coincidence of several parts of the semantics of CLU makes garbage collection a 
necessity. The basic unit of information in CLU isan object. Every object has a type, and may | 
be manipulated ‘only by the operations of its type: this is the key to abstract data types. 
Conceptually, ob jects exist independently of pragrams, and: qnce created are never destroyed. A 
variable is simply a reference to. an object, that Js,a name for i. It is important to-realize that 
variables do not contain objects, but rather: olaject. references, implemumted by. pointers or 
capabilities. Two.. variables may refer tothe seme: object ~ we say ‘they share that: ob ject. 
~ Ob jects may.refer.to other ob jects, so. ob jects. can be shared by objects as well as by variables. 
This is useful. in building: hierarchical, graph, and. list date: stru¢tures. Furthermore, cyclic data 
structures.can: be built, thus. implying thet. reference counting. will, not-suffice to reclaim all 
unused storage. -Because variable. usineee, er aaah collection: is needed 
_ to prevent fragmentation of.storage, oo 2: 

An CLU, assignment, argument. oulinia es gaa results are all accomplished 
by transmitting eats references.ne alta For-example, in. 
the variable x is made to refer to the same. hit as that stared to se 9: ‘The ob ject referred. 
to by y is not affected in any way. In the case of argument passing a similar thing happens. 
The called routine is given references to the arguments being passed to it. This is not the same 
as call by reference: the called routine does not ‘rave access to the variables of its caller. 
However, the ob jects passed are shared between the caller and the called procedure. Therefore 
any modifications to the ob jects wil be visible to the caller. | 

‘Any procedure can create new objects a at will, and these ob jects are stored in the heap! 
References to ob jects can be stored in other ob jects and also returned to the caller directly. We 
will call the ob ject semantics of CLU the object-oriented Spproach. 

In sum, CLU ob jects must be allocated ina heap because (a) they can be of 
unpredictable size, (b) their size can grow over ‘time without bound, and (c) their lifetime is 


1. A heap is a global, garbage collected storage area, like that of Algol 68 [Wi jngaarden77]. 


1.4. Our Approach 
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indefinite. Garbage coljection: is required: ‘because cyclic. structures can: er ‘Compacting 


PRRs 


garbage collection: must. be used to prevent fragmentation of. “mesory, because variable size. 


_ob jects are used. . ty 2s PeigeG ie aa, the tee ae 


. setae 2 oy Pee wag Ee tise 


_ CLU’s mejor ‘contribution «is: the:ateatract dita: type Taditity, not ‘the object briented 
view.. It appears: shat the ee Of the-requiletiihe: Tor’ yardage 
collection; as owthiemkiabove:: Purtaps we tatty soda Hope: faites‘ withodt the 


object-oriented view.: As wrill-be-explained:irt'more diesait We Chr heme arrive 
at: is :a; synthesis -of the traditional: Use of vertebra OLUY: Ce Seems 
“objects is-etiewinated, amd: atemieincricient ype 


ob jects: in: vaniotesic Fuirehen aisles 


“cmmay be-manipatared: -Ourspenpose dF tema 


| Wult76b, Wulf?6ci): 


possible. We aall our resulting design:"A: Stach- Based 
ASBAG: - We have: nen atepenpted: to Gakagaré ia 
concentrated. on: tle -sepnamttes? “PReceyestan’ nell ineme OE ie hale til 
sical fora ne ay me ep 


ee oe Syd Be cater, Se ‘ext 


i. 5. Related Work 


Ge 


The goals of the ‘Aiphard ing ig group ‘ciel appear to bev very ‘similar 


Rreaes Si eae pelle ot ih Fhamever Ss 


to ours: Atphara has abstract data 2 ype and mt San sith bag a stack. . areal ageat is stifl 


there. will be significant differences ‘beet of ‘ove + tdbereton to a mone: "object-oriented 


Jo ftbas 
approach. Furthermore, “Alpiaed seems: to > concentrate ‘more -on. provabiliy (see CWwall6a, 
ise ysteg Wie, FE Boa TEE eb 


The Tanguage Eudiid ‘thampson7 | is als ‘soins ‘related J ‘our. _work. We are 


a ee YP gal geet | eiyap sry 


| especially indebted ‘to ‘Euclid for the concepts of. aliheing prevention’ and . collections. Like 


Wei apap oii wad) galore 3S42 Hee eh 


Alphard, Euclid is not “ob ject-ortented. Fu irthermare, was nat. ‘specif ically designed to 
provide abstract ante be a =o can be. 7° mores in Euelid-to:0 —, zeees 


agile, < ugaePege Fa daty got 


vf 
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places more emphasis on provability than we do, and on systems implementation features. 
_ Euclid: is a more complete. language than ASBAL, but our “Intention Was not to design a 
complete ready-to-use language. 

| The language Simula is also somewhat related t to ASBAL. Simula could be described 
as CLU's ancestor, and CLU is ASBAL's _ancestor, so the ‘Felationship is one of progressive 
development. No specific feature was consciously t taken directly from Simula in the design of 
ASBAL, but much was taken from CLU. 

The language most closely related ¢ to ASBAL is of course CLU, since it was the 

Starting point of our design. 


1.6. Outline 


This introductory chapter is foltowed oy five chapters. Chapter 2 introduces: the basic 
semantics of ASBAL, laying. the philosophical and semantic foundations for the rest of the 
design. The third chapter extends the basic features with, ‘wo mechanisms taken from CLU: 
iterators and exception handling. Chapter 4 further extends ASBAL ‘by adding parameters to 
abstractions. The parameter mechanism of CLU is copied, but a significant new ‘feature ‘is 
added - size parameters. ‘The f ifth chapter Investigates a topic foreign to CLU: _ dynamic 
allocation of ob jects without requiring garbage collection. Jn Chapter 6 we summarize our 
research, draw conclusions, and make suggestions on how our work can be extended, 
mentioning other approaches to our problem deserving investigation. 

There are two appendices, which more completely. define our: ASBAL. The first 
appendix gives a context-f ree grammar with ‘explanations of the various productions. The 
second appendix outlines the basic data types and their operations 
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= Basia: “Pomme 


This chaptat presents many. fundamental ideas a ASBAL. We begin with a 


discussion of the, ‘Philosophy behind ob jects and variables in ‘Programming fanguages, point out 
particular aspects of this philosophy that direct impact. 9 our decisions in the design of ASBAL, 


¥ Fae 


and arrive at the basic semantics of variables for. ASBAL. “From ‘this we develop the semantics 


yhaeges.” 


of procedure invocation, assignment, ‘and ‘selection of ' components of ohojecs._ After a discussion 


2 TRS PEE Stay Fett fag me 


of implementation oa ra we present > Getinition. to ifustrate the material 
oe 3 oo Ak, Fa a be a 
introduced. 


2.1. Philosophy of Ob jects and Variables 


Variables in traditional ‘programming languages ‘serve two waajor ‘functions: they 
: provide a naming: capabitity, and they Provide:comamers for information Ge, _ Storage Space). 
CLU, with its ob jett-artented ‘view, separates ‘these frictions, “Objects are the information 
containers of CLU. “clu vartabhes ‘Wold ‘ony the mere ‘or é D, , (We generally ‘say the 
“variable denote or “nefers to the ob ect) Objects have “an indefiniee lifetime, and may be 


ayeneg and 


- referred to. by ‘many variables at once. ‘Hence, Stafects eve implemented es storage ‘allocated ina 
heap, with. variables’ ‘being pointers to the: Object they: Genome. Ovjeer ray ‘refer to other 
a objects, and: general graph structures: of objects are alowed. - 

“Some ‘objects. have tlme—varying. properties; we say sath objets ere mutable. The state 
of ‘a mutable object: 1s the set of ‘properties tt fas at-some point-in ‘time. For example, the 
: “abstract type stack fs mutable. “Tie state of a stack is the urtiered sequence of ‘objects | init. A 
| push ora pop:muteres ® ‘stack, te, gives it a new sate. ‘On the-other trend, a test for. emptiness 

will not‘change the state. of a stack. 

. Immutable objects are those whose properties do not vary over time. Most 
mathematical values are immutable, as are their computer language: ‘models. (The values not 
the variables. in which. they are stored!) For exampte, integers, real numbers, characters, strings, 
and boolean ‘values are all immutable. “The integer 2’ is an ‘imniatable ‘ob ject. "2" is ‘2’ no 

"matter how you slice it, and ‘2’.can never be changed to any other integer. a 
The separation of the naming and storage functions of variables achieved ‘by the 
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; ob jpct-ortented view leads to a clean ene But probably the most st important. reason CLU’s 


ttn: 


ob. ject-oriented semantics is attractive is that people seem to think in ‘terms of ‘ob jects. The 
very ‘structure of language, with nouns (naming ob es, ‘adj ves describing. the properties 
rh CNV 83 put P4qatee 


of ob jects), and verbs (describing the’ ite of ob p jects or their behavior) seems based on ‘this view 
of the world. If it is indeed t true that People t think in terms of ‘ob eas, then Mnguistic f forms 


BTae 


ige7 42 sect ad 
and. implementation by being more natural for cult to se 


. "Of course, the kind of objects to be found in in concepts are highly 

abstract, often mathematical in nature. So, there remains rich: structure to be built to model 
real world objects and systems. This. lack of structure allows the freedom necessary in a 
‘general-purpose language. For domain specific systems (eg. medica diagnosis), more structure 
may be desirable because it embodies useful assumptions 2 and Prevents reinventing the wheel” 
for every specific task. “However, ‘ASBAL. is to be ener} The abstract data type 
facilities allow one to build specialized systems by accumulating ‘al Worary of ‘type definitions 
and procedures refevant to the application. Our rhodeling of ob; jects must extend to abstract 
data types to be useful. For this reason ASBAL is erage from a very general point of view 


with respect to types. This 1 may make our ‘descriprons of semantic 0 concepts seem very vague. 
It is hoped that the many small examples we give wil help offset the abstract t descriptions, 


2.2. Variables in ASBAL 


As was, discussed in. the first atin os besic conyaint in the alga of. ASBAL is to. 
obviate, the need for garbage. .collecden. .This,..we, .angued, -iraplies .elther..static- or 
_Stack~allecation. of, storage, We explained that.our- investigation. is restricted 4o-atack allgcation. 
CLU-style objects cannot be stack-allocated in an sa bie..way, because they are very 
general structures. We have decided that the best appromch for: “ASBAL ts to-store ob jects in 
- variables similar to traditional Variables. The simplicity he method directed our ‘choice. All 
__, other mechanisms we considered were Iniciate and comple Storing obijects ire variables is not 
as’ ‘ice as the full-blown “ob Ject-oriented approach | of cLU, ‘but i it “appears t ‘to ‘be the ‘best we 
can do. The assignment, procedure call, and-component: selection mechanisms were: designed 
very carefully to help offset the limitations imposed by working in a stack. Here is a summary 
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+ of the ob ject Une Pree: 
- | A variable contains an ob ect An object has. a type, and » 20 p dees a variable; a variable 
= may only contain an object whose type is the same as its own. Assignenant will be used only to 
| change which ob njeet: is stored in a variable. An 1 assignment effectively destroys whatever ob ject 
previously existed in a variable, and creates a new ob ject. in te pee Tac a an ge, the. state of 
an ob ject, the ob. fect must be passed. (using. the procedure invocation | mechanism) to an 
operation of its type! An operation that k changes a an Ob jects state he said to mutate the object 2 
We emphasize that assigning toa. variable es not the game as mutating the ob ject it 


| contains. This is because ‘mutable ob. 9 fects may have properties defined, by their, creation which 


tf may never be changed | later. For example, consider an. | abstraction ar tl that modets autamobiles. 


At creation the make, model, and serial number are specified; these properties | of a car may 
never be changed. after it is created. On the other hand, the umber. of pamengers in a car 


and location of a car ¢ can change quite ‘frequently. “Akthough att the p proper 
of its state, ‘only some of these properties an be changed by rmutation. "However, if a car 


7 variable: As assigned a a new car, ot the properties might | be different from those of the previous 


car. 


“J of a car are part. 


Objects may have other objects a as components Comparer of an n object are stored 
| “within it, and hence within the variable containing a. This is quite: aifferent from CLU, 
where only Teferences to: components are stored in an ‘ob ject. 

Several consequences of this ‘Ob ject interpretation of varieisles should @e mentioned. In 
CLU, assignment is system-defined: it is an implicit operation. This 4s pecause a CLU 
 ateigniment ertéatts only copying an Object reteretice, rather The ‘capying “4 pointer or capability. 
Grr the other tid swe ‘must -construdt an ertire“atijct hich ‘asnighemann:; this ‘new Ob ject 
: ee “Thiv'coriseqereni rot as fect will 


AL Recall that the abstract date type methodology al atiows. aa the. Operations. of a type to access 
or-update the representation of objects of that type. 
2 The only mutebte objects anestqoerds.and: aera, ant-ol jects containing them. ‘AAl‘mutation 
is accomplished by mutation of records or arrays. Mutation, isin .a, sense teagical, since the 
mutating operations are atomic. That ‘is, the ‘fandamental — operations cannot be 
wai aecktali ‘ainto other, {nent Seuip operations: oe : 
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Another consequence of the ob ject interpretation ls that shating of components is 
disallowed, because Rentsaianic are — contained in m ti "parent" ob es rather than 
may be the same exact object, and any modification to this shared Séemponient ob ject via one 

access path will be visible via the other access path. Our objects cannot share components in 
| this way. (The addition of pointers. to ASBAL. restores (She abiliy,. to share, so we are not 
giving sharing up completely.) Ea ah htt cs 

A rather obvious result of our semnantics is s that the lifetime of an 1 ob ject is bounded by 
the lif etime of the variable containing i it, rather than being unbounded ; as in CLU.. The ma jor 
' implication of this is that ASBAL routines will not be able to _Agturn objects in the sense that 
CLU procedures do. In CLU, procedures return. . Teferences to Objects: hence, previously. existing 
ob jects may be returned by just copying . references. te them. An. ASBAL we are restricted to 
constructing new objects to be returned. ° 

The binding of an ob ject’s lifetime to. that eens variable, along with the 

storing | of components within objects rather than s¢ ar ely, requires. a new, mechanism for 
. selecting components. In CLU, components. can be selected by just returning them since only a 
reference is returned. On the other hand, our returns always create ‘niew-ob jects, sb’ returhing a 


component, cannot be done in the same sense as in CLU: we can only construct a Copy of the 
component. Therefore, without a new mechanism, component ob. fects may never be matated, 
although new component objects may be ‘substituted by operations on the containing ob ject. 
Since we should be able to do anything with ‘component ob jects that we cn ‘do with entire 
ob jects, a new mechanism fs required (o allow mutation of | components. “Anew kind of module, 
"the selector, is intraduced for this purpose; it ‘will be described i in a-tater section of this chapter. 

A last consequence of our semantic model is that ob ees cannot grow dynamically, at 
least not without bound, because they are ‘restricted to the storage ‘allocated for the variable 
containing them. - This leads to difficulties when trying to implement abstractions that are 
conceptually unbounded. The parameter and area \ mechanisns to @ be t presented | later are e largely 
devoted to solving this problem. 

To sum. up, variables in ASBAL are containers for objects. Objects have a type, 
which indicates how they may be manipulated, ie, what operations are allowed on them. 


Variables are also giver: a type, indicating what. type of, Ob jects: tvey, we contain. Variables . | 
: will be implemented as storage aitoceced: in ® stack; thre: olb:jpet:. inne cer wes 

ie puts. limitations on how that storage may: be: romnputated. The mage ditrerenges | between our 
| Ob jects and aa attocated: objects are: 


a our ob je are stored wichin variate, 16 ausgnment ie different - the oft ob ject: in: 
the vartable- assigned 10 td destroyed sind’ a re ojo evened i the old ‘one’s place; 
(2) because oa are stored: in. verlag ams nsuigrenent altaya | involves creating an 
oy ob ject; 
(3) there can be'no sharing of dip amen varia or components of ob jcts ameng 
: ob jects: anne vaitatifes; 
(4) the lifetime of arv-ob ject is. Bounded ip the lifteme of the variable containing it; 
(S) aind, the at me ef Bouncy e's vn able co i 


‘The next. few ‘sections: of chagrin he os 
| deat anit revert sound phi stp 


Fi Ra 


: 2a, ‘Declarations: and. Newwes: 


| . Programs: must be able to refer to objects. in o 
variables in ASBAL witl be: given neryes: if, pre rogram. 
. to distinguish them from: names used) for other . 


rpe — orion Ire a procedures | 
; It ie generally: convenient to create a new variable of Sa Ta 0 give ae a the: same 
time. In ASBAL a dectaration: seaterert sacl as 
=. var x: foo; : 
_ is used todo this. In the example 1 new. variable of ype fons tea given the name x. 
A newly. created: variable; as constructed bys w decigrath w, , Conve ene: ne, pie itis: an error to 
attempt to use it. (We fave more to say about Iniiisiteation 2 One can easily. 


MaRTEE FACE he ; 


extend the form: of the: declaration: statement a ace el ee once: 
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var x: int, y: bool; 
or : 
var x,y: int; 


2.2.2, Variable Initialization 


_ We define our dectarations to create new. variables, that is, ones. never before known or 
used. This definition prevents confusion over whether a “new".variable contains an old.ob ject. 
It does raise two problems, however. The first is that memory allocation is required - this is 
discussed in the section’ on implementation later tw'dhis’ chapter: The second: problerh is that the 
bits initially in the storage allocated for the variable may not represent a legal ob ject of the 
type of the variable. There are two solutions to ‘this problem. ‘One is to store a def ault ob ject 
of the-declared type in the variable as part ‘of the actions taken for the declaration. ‘This can 
be done for user defined types as well as system-provided ‘ones by requiring ‘each type 
definition to havea routine of a particular name Cine, say) which will store an initiad ob ject in 
a variable given to it by the system. Thi solution. guarantees that variables always contain 
legal ob jects (assuming users do not write crazy init routines). ‘But ‘unfortunately, it cannot 
guarantee that the objects are sensible, since sensibility depends on how a variable is used. 

The better solution is to consider attempts to use an uninitialized variable as illegal, 
and to detect such attempts with a combination of compile-time and run-time checks. Exactly 
what checks are required is discussed in the section on implementation later in this chapter. 


2.2.3. Constants 


It is sometimes convenient to have, a. holder for.an.object that cannot be assigned to 
after initialization, and that does not allow. the.ob ject to. be modified. We ¢all such holders 
constants to contrast them with variables; they are. shmijpr; to constant objects. in CLU. 
However, we allow constants of mutable types, such as constant arrays. Since a constant 
physically contains the object stored in it, modifications can easily be prevented by disallowing 
any write operations to the storage allocated toa constant. ‘We will see later that We can, pass a 
variable to a procedure but’ have the procedure consider it to bé-a constant.’ This:is the ‘real 
motivation for constants - prevention of undesired modification to ob jects. 
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A constant definition is similar.te a variable declaration, except: | that the object to be 
stored in the constant must be specified. Thus, in a constant: et nition wrens the desired . 
name, type, and the. object to be stored. in the constant: 


const n: int = 53; 

const i: int = jk; 

const a: arraytint} « arrayScreate(0); 
Tn an implementation there ts Tittle difference between a ‘cone sv 8 variable: 2 constant is 
essentially a write-once variable. 


2.2.4. Scope and the Form of ASBAL Modules: 


To gain an understanding: of the scope of variable and constant mames, we must 
consider the general form of modules in ASBAL. The two: basic. modutes of ASBAL are the 
cluster, which implements = dara abstraction, and the procedure; which implements a Sn 
| Sperasion: 
A cluster defines a data abstraction, by giving representacion (often shortened to rep) 
for the abstraction being defined, and implementations of the ‘operations. ‘The. operation 
"implementations take the form of procedures, but have the adied ability to convert objects of 
the abstract type to and from the rep type. Internat operations. wmey be wt the cluster. lists 
which of the operations may be used outside the cluster. 
, A procedure has a header and a body, the body betng. x: Het of. staternents. The. header 
gives the types, and names. of the arguments, the types of hos resus returned, and other 
‘information to be described later. “ 
Each abstraction is implemented i terms of lower: level: abstractions. The overall 
structure is a hierarchical decomposition, wittr'tfie Highest levet xbstractions at the top, and the 
lowest fevel abstractions Betiig: types and’ procedures Bulle fhto the linguige: A modute is an 
implementation of an abstraction! Because'an atistraction is entire ante: itsetf, a free standing 


‘1. A module may imptement a-class of related abstractions, rather than a: sige abstraction (see 
the: ‘chapter on parameters). ; 
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mathematical ob ject, modules are conceptually separate and Independent For example, there 
are no free variables in ASBAL modules, because this would represent, a dependence on 
another module to supply those variables. 7 

This model is somewhat contrary to the more common _block-structured, ‘view of 
programs in at least two ways. First, the block-structured view leads to large ‘monolithic 
programs, and the whole goal of modularity is to [prevent s such large programs. Second, we 
allow only local variables, not global variables This supports modularity by making module 
relationships. more explicit: any data that a module v wishes to. access must be, passed as 
arguments to that module. ‘Since each ‘procedure defines. a distinct abstraction, and every 
abstraction is imptemented ‘by distinct modules, nothing is gained by. deféming: procedures 
within procedures. In the interest of simplicity procedure’ definitions in procedures are 
forbidden. - However, hierarchical’ ign ‘of statement’ feed within”: ‘a precede is Ree 
desirable, so it is allowed and encouraged: oe is 

What scoping of: ‘natnes is- proper for this ‘fnodelar Hewat Without local 
_ procedures there is little reason to allow variable names and Constant mares to be obscured 
(reused in nested blocks), especially since procedures are ‘not expected to be very ‘large. 
However, it is often helpful to restrict the. scope of. certain, variable.(er.constant) names to an 
inner block, such as a loop, rather than an entire procedugy tis helps indicate the purpose of 
the variable. SL saesivemite : ip bas Lo ane 

_ + Our no-global-variables policy makes programs. .more modular, but makes some 

programs a little more awkward when global data 4s necessary. The main,advantage-of global 
data is not having to explicitly pass it to every procedure, that. might use it. An example of an 
ob ject normally made global is the symbol, table of a compiler... Assume we. must implement a 
compiler in a language forbidding global data. .Let us,say thecompiler parses by recursive 
| descent. Only a few routines directly access the symbal table; however, the.symbol table, must be 
Created at the highest level and, passed explicitly through many routines. that never.use it at all. 
| These intermediate routines only pass the spmbal-table dewn.for-the lowest levels.to.use. We 


2. This has ‘nothing to do with separate compilation, however. Modules may or may not be 
separately compiled: we do not wish to pin this aspect down. 
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. feel the modularity gained by forbidding glebal data: more than offsets. the inconvenience of 
"requiring extra writing for some Programs. Remaving fiobal data is essentiat to eliminating 
implicit ‘module interdependencies. Block structure is not bad inv itself; global data is. However, 

once all data is local, there is little point to. block structure for module definitions. 

_ Even though all data should be local, we argue that module names should be global 
“It is not useful to restrict the scope of modules, and in fact it cam be counterproductive - it may. 
‘force abstractions to be re-implemented needlessly. ‘Therefore we assame that module names 
are global. We neither require nor prohibit other information 1 regarding the relationships of 
modules - such module interconnection information n fe beyond the scape of this thesis. 


2.3. - Precedure Invocation 


‘The. a eee section. discussed. variables. and. opments, the mechanisms: for storing 
and holding’ ob jects. We now continue. with procedure. inwocal on, whieh. allows the creation of 
new objects.and. the, mamipoetion, pf old. ones... ‘Tip pens saves a tn sangeet 


2.3.1 The Different Clases of Arguments - 


' ‘The whole point of procedures 1816 gain abstraction’ tiv tttions. A set of actions that 
- form: a logical whole ts greuped together and’ -vidwed asa singft abstract action. The basic 
actions are mutation of objects and assignment to variables. Since all data is local’ in ASBAL, 
“the key to procedural ‘abstraditon: will be’ the’ atigimient® passivig” mechamiim; that is, the 
“- mechtnisn by: which provedtites are-givert icon te ditt te ependte dpon it | 

we "We can imagine as riany as four different clatesof argisinents In ASBAL. The first 
' class is constant arguments. A ‘constant ‘diguaeie it’ bo a peuetie” is din” input Which cannot be 
directly modified by the routine: We wil see tuted that = primadiute cannot count on an 
“Constant Ebject’s: not changing state, berate there ity a: av detedi” patti from some other 
‘argument to the object that: flows’ it'to be mutated. ‘However, tis thie ibeence of pointers, a 
constant argument cannet be 1iated yi aad Ware tn ASBAL. “Furthermore, if all 


1. We reserve the: word. fevemeter bel a future ows) and caetully dtp | between 
arguments and paraméters:’ 
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arguments to a procedure are constant arguments or result arguments (see below), then the 
procedure is functional; that is, it does not modify any of its arguments. 

The second class of arguments | is object arguments. - An, Ob ject argument gives access to 
a particular ob ject, allowing observation and mutation of. te ‘However, the variable containing 
the ob ject may not be accessed, and therefore may not be assigned to. 

The third class of arguments is vartable arguments. A. variable argument is a variable 
passed by reference. Therefore, assignment to it Is allowed, as ‘well as access to (and mutation 
of) the object it contains. The difference between variable arg 


peENts and ob ject. arguments is 
exactly the difference between assignment to a variable and mutation of, the ob ject | it contains. 


REGS 


may only be assigned | to. The purpose of result tt arguments is the construction n of new 1 ob jects in 
variables, that is, assignment. This includes initialization as well as assignment. 

Object and variable arguments (the second and third classes described? are not very 
"much. different from each other in implementation. Both would be implemented by passing by 
reference. The only difference is that a variable argument may be assigned tg, and’ an object 
argument may not be. This slight distinction is not worth the complexity of two separate 
argument passing modes. Therefore, we chose to dispense. with one and keep, the other: we 
retained ob ject arguments, and eliminated variable arguments, for two reasons. First, this ds the 
more conservative choice in that less access is given to arguments. Second, object arguments 
more like CLU’s argument passing mechanism. In CLU, object references are passed, by value. 
The effect is as if immutable cree were passed by value, and mutable ones by reference; 
except, the variables of the calling procedure cannot be ‘affected by the called procedure in any 
wi However, the ob ject ame is shared between the a peccaseres and hence mutations of it 


later decisions such as the selector mechanisr aind aliasing detection. 

- Now that we have settled on the classes of arguments - constant, ob ject, and result - we 
need to devise a syntax for expressing procedure definitions and invocations. Let us first 
describe a simple scheme which we wil ~— _ in-a motnent: . . 
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2.3.2. A Simple Scheme 


The simplest approach to defining procedures is to have a header in each definition, 
much like the procedure headers of Pascal In the header we state the local name, type, and 
class of each argument. For example: cr eee 

p= proc (const w.x: int, var y: areaylintl, res 2: beol; 

The above header says that procedure p takes four arguments: two constant arguments, w and 
x; One ob ject argument, 7; and one result argument! ‘The procedure pf is not allowed to mutate 
or assign to w and x (integers are not mutable ob jects anyway); » may matate 9, but not assign 
‘to it; and p must assign to x, but may not access it beforehand. ‘Cal by reference is used to 
“implement all three kinds of arguments; the difference. between them is in what the called 
- procedure may do with an argument - ~ not how the argament ts passed, 
, Procedure invocations take the usual form: the name of the Procedure followed by a 
parenthesized list of arguments. For example, a call of the procedure paced = might look 
like this: 

p (1, i¢5,a, b); 

The types of the arguments must match those declared by p. Furthermore, access constraints 
may not be viotated. bes comers may ee ee as res 


arguments. 
2.3.3. Reterning Vatves vs. Passing | Vartabtes 


Fst iiegic sche sscllal‘abdos’ pty warkslne Sek cov aia) badeaware 
upon. The main thing to notice is that there is Ho explich acsignment. All assignmenits are 
accomplished by passing a vartabfe by res. (Presumably the buik-in types have operations to 
assign to a variable of their type. In 4 sense these operations are magical, since all other 
assignments rely on them.) However, the procedure invecations necessary for each. assignment 
are tedious to write out in the simple scheme, and they — what is happening since resuit 


1. We admit the use of var iar shied wegen nln ba ea ee 
Pascal. ae: we do not wish to get invotved in purely syntactic issues. 
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argumients do not stand out. 
. It is possible to “separate result arguments by writing them on the left-hand. side of a 
= " symbol, to signify assignment. For example, w we ‘would write: 


sar b: foo, ¢: bar; 
= q (x, y); 
Cre r (2); 
a := p (b, 0); 
where in the simple scheme we would have written: 


var b: foo, c: bas; 

q (x, y, bd; 

r@o; | 

p (b, c, a); 

_ assurtring these to be the types of , 9, and r: 
| pi proctype {var foo, bar, res TD * 

 & proctype (var T2, T3, res foo) 

i: Proctype (var T4, res bar) . . 

The use of ‘=’ shows more clearly what is,going on, | . 

We can make a further improvement, however. If we had to declare a variable for 
every temporary result, our programs would become pte: ‘Chattered with extraneous variables 
and declarations. We can get around this problem. by haying the compiler allocate temporary 
variables.. Adding this feature allows us to, ‘rewrite the above samen 3 and eliminate the 
temporary variables, b and c: 

a= p Cq(x,y), r(z) ); . SS the ee 
' Further, if some procedyre returns a result we never use, we. need not ‘assign the result to a 
variable; the compiler will allocate a temporary variable. for the. procedure to write into, and 
then the temporary will be thrown away (i.e, never accessed again). So, if the variable a were 
never used again in the example, we could eliminate it, giving: : : 

p(q(xy), ); 

The end result of putting res arguments on the left, and having the compiler allocate 
temporaries, is syntax quite Similar in appearance to CLU. In fact, we encourage the 
programmer to think of procedures as returning ‘ob jects instead of ‘being passed variables to 
write into. The overall picture of this final scheme is that the calling procedure gets the effect 


of objects being fee and the called procedure sees variables which must be assigned to. 
This is a good conpronmnse between abstraction and eff iciency. The only constraint is that the 
- size (or at least an. upper bound on id, of all ob jects to be returned must be known before the 
call, so that the actual variable used can be created. How we ‘deal with this, constraint will 
become clear later. 

To encourage thinking in terms of returning ob jects, we put the iar tees of what a 
| procedure returns in a separate part of the procedure header, as in — 

p = proc (const w,x: int, vary: areaylint?) returns te bout; 

The ob jects to be returned are given names because the procedure being ‘defined views them as 
variables. Therefore, we now call the result arguments of a prowenre return partons Notice 
that effectively all we have done is segregate the res arguments.” 

Now let us consider how to express the returning of, Lob jects in -ASBAL. In principle 
we could use a return statement like CLU’ 's, whieh: gives a: iist.of objects: te. pauin. This would 
be implemented by implicitly doing assignments he the re recut ‘varia ables. 
implicit assignments might involve the copying of large ‘objects. into the return variables. 
Instead, we allow ob jects to be built —— in the veel — and ee say 


return; 


© ‘However, these 


to return from a procedtire. We view the return ‘variables 3 as betrig:‘ihirettattced on procedure 
entry, and any return statement in the procedure is ‘considered to be a use of afl the return 
variables. This’atlows us to use whatever mechanism already exists for detecting the use of 
uninitialized variables to handle return variables as well. fw sam “then, the uriderlying 
mechanism of returning is the passing of variables (whethe?: they We" progiammer dectared or 

" compiler’ created). “However, ‘we dffdige the me “WO teat’ ioaonincdinin ‘of returning 
- bad aie a’ view ‘we Teel is more natural’ at “Repth. teat bsg Boe 


re Aaa en ese tgs, Mites HE ME oay 


2.3.4. Multiple Returns 


In ‘Most janguages, procedures may, fe return only ze zero or ‘one ‘things. We remove this 


ek 3 teeth E en ia sata * 


restriction. because it is arbitrary and sometimes counterproductive, in that some procedures 
_ Most naturally return more than one. ob fect. oF course, we provide ; puitable syntactic forms for 
‘using this feature. ‘The return statement itself need not be extended since we are depending on 
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assignments to get the return objects into the return: variables, as previously explained. 
However, some syntactic form is necessary to designate the variables to receive the return 
ob jects. The multiple assignment statement, which will be discussed in detail in the section on 
assignment, is used for this purpose. Its general form is 

Vary, VATD, ..., VAT, i= invocation; 

The header for a procedure sia more than one oe ‘woutd have a returns clause of the 
eae wadeens Ps 
returns (var): type), ..., var): type) 
where the types may be factored. For example: 
| returns (x,y: int, z: char) 

The order of the variables. on the left side in thé faukiiple assignment statement is the 
same as in the returns clause of the procedure header. This parallels ‘the: “standard 
correspondence of actual and formal arguients to amecnaks ‘The returns clause 7, be 
omitted for a.procedure returning no Objects,or ah 

- returns() 
may be used. . 


2.3.5. Aliasing: 


We have not dealt with the problem that arises when the same object is passed to a 
procedure in two different var positions, or in both a const and ‘a vat position. The problem 
‘is-that not alt:procedures are prepared-to' deal with overlapping vartibles. The problem is 
compounded by the fact that there are: variables that teffectively): have subvariables. (eg. 
records and: arsays), and overlapping subvariables present the same. difficulty. -Furthermore, 
the fact that each argument has a. different name:in the called procedure tends to make people 
forget that two names might refer to the same object (or overlapping ob jects).. We call the 
problem aliasing (after Euclid ELampson7 7). Weibelteve that :pitasing ‘should: be illegal:' One 
very good reason for’ prohibiting: aliasing is‘ that-Jeccan chusd an: algument to mysteriously 
change into an entirely different ob ject from that passed. Consider the following procedure: 
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p= spied: arcayit), x: 0); 
at 10) Si es 
afi] x; 
end P; ‘ . : 
It is reasonable to think that (a) » has no effect.on ~.sinos it dees net assign-to * in the body, 
and (b) that after the second assignment, off] equals the argument passed | in. However, one 
could call p in this way: 

p (b, b{10)); . | 
Assuming that both arguments are passed by reference, we. ome that, the pssignment to af 10) in 
the body of p can .dewroy x. See (Lampeanttl Sok, ORRaNQIERES an; We Neg. atsing should 
be prohibited.! ee 

Most cases of chasing can be detmteh ot somplinti, tet same sugplee. simphe 
run-time checks, eg., that two.array indexes.are different for teen 
f (alt), af p); 254 

and so on. We will explain what must be done to prevent. aliasing in the section on 
_ implementation, and will expand ee ee rere er ee ee as we 
encounter them. —- 


2.4. Assignment 


Here we describe: how to change hitching tn iret emits ithe agierinion 
| commonly. called. assignment. As mensmed.in the -dicmston of ‘expwhent passing: and 
procedure invocation, reture variables {whith ware peoyteusly emi stgument? are: the bad 
aesignenent mechanisn. ee ee . 

. UGY := invocation; — 
that is, variables Geing astigned a computed expruciet: thi tarinlle ts pasted ae the outermost 
procedure cabled. he il bo Anemiastounet that sioeally ft expumcsions ate apie saranie: 


1. ‘There are no implict argumeres in ASBAL, unlike Buttid. ‘This should reace the number 
of checks required to prevent aliasing. 


even if they are not explicitly written out. For example, 
. x+y 
really means 

T$add (x, y)” 
where T is the type of x.) What about assignments of the form . 

var, := varo; ? a 
There is no invocation there to pass var to! This problem can be handled in three ways. 

First, there could be a system-defined, automatic ¢ copy operation performed. This is 
what happens in most languages. Ignoring: differing worage: formats, etc, the implicit copy 
perf ormed is essentially a bit-for-bit dl of the contents of the le storage allocated to wer into 
| abstract data types, SS with their introduction a problem arises, “Any asignment creates a new 
ob ject; a bit-copy creates one with the same state as the one in in the ngic hand variable. The 
problem is that not ail types should be copied i in this Aug Hd For example, some types may require 
all the existing ob jects of the type to have “different states, $0 that € each ob fect is detectably 
unique. In the presence of pointers, tt is not dear whether a pointer which is a ‘component of 
an object to be copied should itself be copied, or ‘whether ‘the ob ject pointed to should be 
copied. 1 Thus, an automatic copy primitive ist not feasts 

| The second solution is to o have al assignments 

"var = exp; 

mean 

var := TScopylexp) 
(where T is the type of both exp and var), ‘whether ap is a variable or an invocation. This 
‘has the unfortunate effect of doing a redundant “copy whenever ep is not a variable. 
Furthermore, the redundant copy operation i. hard to optimize away ‘because users write the 


copy operations, and are not constrained to to make them: easly optimized. oo . 
We feel the best solution is to insert no extra a copy in assignments of the form 


1. This is called the copy problem and will be further discussed when pointers are added to 
ASBAL. 


var := invocation; 
and to take 

al Salad 
to mean 

ry = TScopy (var); 

eG a a 

proctype (const T) returns (T); ’ 
If an assignment of one variable to anether is wren, and the appropriate copy operation does 
not exist, then the program 4s in error. 
‘Let us point out afew consequences of the solution we have adopted. First, every 
| operation must provide a copy operation objects of the type are to be assigned from one 
"variable to another. There is no getting around this; the second solution had i also, and we 
demonstrated the first solution to be infeasible Second, the “= symbol has a non-uniform 
meaning. While we sympathize with those that believe apanbals should have clearly defined. 


- “umique meanings, we feel we must compromise that principle im this cae What is gained is a 


Ci 


"There is,one more prebern with asiguments: consider the statement 


- savings in effort at optimization, or computer time in program execetion. 


x = p(x, y); 
Here p receives x as an argument in two positions; ane et reedable, ‘and @ne: is write-only. 
Things could get realty messed up when » starts to write into ies return variable One way to 
solve this problem és to translate it to 
. x := TScopy (p (x, y)); neds 
similar to the solution of the previous problem. Inserting a capy here is a bad idea, though, 


~~ because it is nowhere near as obvious as before when an extra copy will be inverted and when 


it will not. The better solution is to sltocate a temporary variable snd pass #t to p. Then after 
ad returns, a. bit-copy is performed from the temporary imo x. a ‘bit-copy works because the 
state of ‘the ob ject 1m p ts exactly the state destred for the new object tn x; furthermore, the 
cb pet in Che tamparary 8 ever Smee aga. 
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. 2.4.1. Multiple Assignments 


Ina previous section we ¢ introduced the idea of returning m more than one ob ject | f rom a 
procedure. We need to be able to assign those ob ects to variables. The form of assignment 
statement for this is 
Var), VAT, ..., VAY, = invocation; 

To extend this to its logical (and useful) conclusion, we ‘also aflow simultarteous multiple 
assignments of the form | 

vary, vars, wy DAT, = EXP pp, - XPpi = oe oe : 

Each variable var, is to be assigned the corresponding sipreaion CXPy, and all these 
assignments are to take place simultaneously. To prevent confusion we require that each 
expression either be a variable or return only one object. In case of aliasing, the.same-trick of 
using femporartes works fine. For example, in eas s a . 

x, y= q (2, rly), x); 

a temporary would be allocated for the result destined for x. On the other hand, one is not 
needed for y, because y is not an argument to ¢. " 

' One particularly nice construct the multiple atsigninent statement allows is 

%, y= YX 
It is hard to decide if this should just swap the bits of the ob jects stored in x and 9, using 
eee which is both efficient and semantically correct, or whether it should invoke tScopy 

twice,! which is more.consistent with our above rule about assignments between variables. We 
"believe it is better to be consistent (i.e, to.call Scogy). A mew operator.could be used to swap 
the objects in variables, but we will not explore such. possibilities here. 


1. For “x, y ‘. y, X;" two temporaries might be required; however, it is not difficult to have a 
compiler notice that one of them is not needed. 


2:4:2. Dectlarations: with: Initialization: 


One last useful assignment statement is a ‘declaration with initialization (or assignment 
with dectaration). This form: of staternent allows one: to daclare and ot aig to s variable in one 
alein 


step. Here are two examples: 


var x: foo = p (2); 
var. x; foo, y: bar =. qft), ru); 


A declaration with initialization is effectively! a. shorthand’ for a 1 Gicarition followed’ by an” 
pie sei Thus the second oman aines . 
war x: foo; 'y: Bary 
ve QD, rw); 
which is inthis case equivatent'to 


var x: foo, y: bar; 
x = q(t); 
y= ru); 


Pe 


Constant definitions, which were. introduced: in a. prvi mation, re the same effect 


as declarations. with. initialization. The only difference. is: that: somaants.can: naver be. assigned. 
to again. 


28, Access to Components of Objects 


The- previous’ sections of this. chapter have: dealt: with: mechanisms: for manipulating 
‘objects as a whole; here: we discuss: the: additional mechantstte. neceesiry for: manipulating 
components of objects. There are three-actions that can Be-pi yedt’ on: Objects: objects: may 
be created, they may be observed (read), and they may be mutated. We desire to be able to do 
all three to components. of objects as well as. to entire objects. Creation is no. problem. A 
component of an object is either created when = object is cone, or is created by a 


1. In Chapter 4 we will see that there can be an Important difference between a declaration 
with initialization and one without. However, for now, er the declaration with 
initialization: to be equivalent toa dectaration: fofiewed by sit tnitiaittetion. 
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(mutating) operation on the ob ject. Records are an example of ob jects whose components are 
created with the objects ‘themselves. Arrays exhibit the other behavior: the addh and addl 
"operations allow new array elements to be ‘created dynamically. “(Records and arrays: wil be 
described in more detail in a moment.) Abstract data types may display either ‘or both 
component creation behaviors; they may always possess some components, but create (and 
possibly destroy) other components dynamicalty. | 
Reading» components is already taken care of as well Since all ob jects having 
“components are built from records and arrays, and Tecords and arrays have. operations to read 
their components, any type can provide operations to read any components it may have. Of 
course a type may not make all components available externally, and may return information 
derived from the components rather than the ‘components themselves. However, reading 
" components. is always done by returning ob jects. This is unfortunate, because returned ob. jects 
are always copies - always new objects. (Remember that return variables must always be 
assigned to.) Thus, returning does not allow components, of ob jects to y be mutated; only copies of 
the components may be manipulated. 
It may seem that storing a ‘mutated copy back into a data structure is equivalent to 
mutating a component of the data structure, and this is often true. However, many data 
structures do not allow components to be replaced at will in this fashion. As an example, 
consider queues; perhaps we can observe the member at the front of the queue, but we can only 
_insert new members at the end of the: queue. “An even better example As. items that must be 
mutated atomically rather than by separate reading then writing; semaphores and other 
synchronizing data types fall into this _ Category. Copies are sufficient for observing 
components but a special mechanism is needed to allow mutation. of components. 
In a previous section of this chapter we indicated that the operations of an abstract 
data type are procedures. We now design a new kind of module, the selector, which is also 
allowed as an operation of a type. Here is what a selector. does... A selector. is. given. an. ob ject 


from which to select a component, and possibly some au ; arguments. to describe which 


component is desired. The selector then proceeds to calculate whatever array.indexes, etc., are 
required, and eventually executes a select statement. The select. statement indicates the 
component ob ject to be made available for use. What is returned to the caller of a selector is 
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not a new object, but rather a descripter of the component selected: (Fhat is, an ob ject 
7 ‘reference is returned.) The selected component may be used 2 a6, a var argument, to a procedure, | 
and can thereby be mutated. However, what is selected is. an objec, and hence may not be 
, “assigned to; only variables may be assigned. to. . 
: Since » reference to (descriptor of) an object ie returned by 2 seocee, we must guard 
| against any dangling references. Potentially, a selector comet sohect, one af its local variables 
rather than a component of the ob ject ft is supposed to select from, giving rive to a dangling 
reference when the descriptor is returned. We prevent, thin by requiring. rat. selectors never 
7 select any of their local variables (or components. ( thereof). _ Notice, tiyat procedure returns. 
| cannot create dangling references of this sert. spammed creates a new ob ject, in its. 
, return variables; procedures can never sore ob ect references in retura. variables. 
: There are two minor points to mention. regarding maytability. First, comporrents 
"selected from var's shoukd be var, te, mutable, and. ¢ rr ef const’s should be const. 


e Bd 


Therefore, a selector does ret designate whether its obec ve select from eamst or var, that 


_ property is automatically inherited from: the incoming, eben Fusthermore, a selector may not 
mutate the ob ject being setectect From, hence the object le wentad a7 2 comat inside the selector 
for checking purposes. The second point is that a selector, shawkd not mutate any auxiliary 


- argument. Therefore, afl auxiliary arguments are taken to be enmst. 


The form of a selector definition is: 


name = selector (name): type, nome tyben, on — en ot tgpe from, nameg: typeg: 
‘ statements; 
si ialaaita 9 

The name, fot #>'tf are the aniliary afguments neiniy in the bijct to select from. The ‘of 
type’ part tndicates the type OF ia scr tee select: ‘A caleet setancant which is onty legal 
“im a'selector) takes this'ferta: |” 

‘select expression; ~ 
The expression cannot designate 2 locat'variable or auziliary angument of the selector. . 

We fs harder to een the enact form 'ch 2 eleon, che conaruct that invohes a | 


selector. We could use | 


selector_nametobject to. select from, cuxillary éryidhenesh 
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to be like procedure invocation, but we feel it is better to write | 

ob ject.selector: -_nameauxiltary arguments) | 
to be analogous to records. ‘The latter form alse has the advantage of making the object being 
selected from stand out. If the ssiacaa ‘takes’ tio — —* the. raion may be 
omitted, leaving ae = . 

ob ject.selector_name 
which is just Hke a record component selection. 
| In many. cases ‘computing: a selection can ‘be expensive. Teereers we lees a 
mechatyism for saving'a sefection; it fs the. wAtW statement: ee ans 

with class name == expdo os. 

statements 
end with; 

where class is const or var. If the class is. var, then the selection. must be from a var. The 
name: stands for the selected object within the body of” the with statement, and is treated 
according to the declared class. A scope is used bechuse extra: checking must ‘be done for saf ety. 
To prevent mutations of the containing” object ‘from destroying the selected object, all 
arguments to invocations in the body of the with: sedbeiment a are checked for arene ‘with the 
selection. oe BBB USE SO 

For example, say (bouncted) queues are Impherented as artays. If the front member of 
a queue is held in a saved selection, then the quedé may hot be Modified until the scope of the 
with statement: is exited. This is because an element of an array (the front member) overlaps 
with the array itself (the queue). The checking to prevent’ this aliasing is done using the 


normal aliasing detection techniques. (The checking may be difficult to accomplish’ at 
compile-time, however.) The with statement is ‘simttat to the bid operation in Euclid. 

Now that we have described the essential nature of sdlectors and selection, let us discuss 
where selectors are apptopriate and. where they ‘dire not. Selectors are to be used to’ mutate 
objects stored in a surrounding data structuré Without ‘disturbing that structure. The types 
having selectors will usually be anes that store data iters ‘and relationships between them, but 
do not manipulate the data items directly. Good examples are fists, stacks, queues, trees, graphs, 
‘etc. Selectors shoud: definitely not be used 0: access: vompenents:that cannot er shoukd not be 


mutated. Furthermore, selectors shoutd not be used merely wp make access mare efficient for 
this can lead to (effectively) exposing. the. representation and. thus limit the range of 
‘implementations of a data type. For example, consider the functions reel, tmag, abs, and arg on 
complex numbers. Implementing any of these functions as a selector forces that component of 
complex numbers to be represented explicitly in the representation. Hence, selectors threaten 
the uniform reference principle [Geschke7S, Ross69). Thus, the. specifier of a type must use 
caution when deciding whether particular operations should be procedures or selectors. 

We now describe records and arrays. It is important to understand their semantics, for 
they are the principal types used in defining representations of abarart dam et. A record 


“type has named fields, each specifying a type. For example 
record(a: int, 
b: bool, 
c: bites 
Each field name defines a selector with the specified name, the ype of the gelegor is 
seltype () of type of field from. record tape “45 23 
Record components may be changed. The operation Pet fl nen a. aed. to update the 
named. field of the record. The type of | ‘put. field_name’ is 
proctype (var record_type, const field_type); | ; 

_ The new object is constructed using the fteld_typeScogy operation, whith rust. exist for 
Jield_type to be usable in a record. For Sonyeninene, record pul ope ations sve a — one 
may write _ | 

ex Py. field_name : = ba 
_ instead of 
record_typeSput_field_name (exp, expo); 

_ Notice that record put operations are “magical” atomic mutating qperations. Records also have 

copy and equal operations; records are more fully described in Ap enix, H. 

The only, other operation on records 48. creation. This cannot be written out without . 
giving an order to the fields. We feel tas beter to think. Of the fields as being. ‘unordered, and 


1. Selectors do save a iia over procedures: returning an ob ject. 


: Integers) The allowed indexes for an array variable are 


2b et eect tee Bee: Lo Re ERIS tae oF Stee SiC RT TE en ane ta cage 
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so the user - may not invoke the record create te operation airety.| ‘instead there is: a special ‘form 
“called a record constructor which allows creation of record 0 ob fet ina an order-independent way. 
A record constructor takes this form: ; 


_record_typeS{fleld_namey: pp 
field_namey: expo, 


field name, expy) 


he The f ield names must all be. preemnk exits ddan 9 order... Eke ands ssa tchieitent in 
the order listed! Several fields may,be initia de (gopigs.of) silane ebject by writing: 
, field_name,, fleld_nemty, sry id name, Xp ait rag hts 
The record constructor invokes the specogtiots copy operations for gach niions which is a 
variable, and for each expression which. is.sigred. ia -mprethen-one field... > bn tie yee 
An array object is a "sequence of objects, of a single type, indexed sequentially, : The 
sequence may be empty, and can grow and shrink in size dynamically. Arrays have a selector to 
index them; it is called fetch, but there is a shorthand for indexing antrays. “ean ‘element with 
index :é cures exists - the. array a, then ao igen that wae me does the _unsugared form 
afetch (i). 
An array variable oan hold only certain 4 array ope of its type More specifically. 
“each array vartable has assoctated with it an nsec of the integers, and only arrays | whose 
indexes are all in that interval may be stored Jn , We array | variable... (We emphasize that the 
indexes of an array. ob ject and those allowed, for an array variable are both sets of consecutive 
re set set when. ‘tid declared, and, never 
change thereafter. Thus, an array variable se type, arraylfooiow: rhigh) can be assigned any 


aa ei? 


array object whose elements are foo's, and whose indexes are all greater than. or equal to low 
and less than or equal to Aigh. The type of the array object is arraylfoo).. (This difference in 
ned in the chapter on parameters.) 


rahe i 


the number of parameters and the ‘' notation will beer 


_ There are Operations on v arrays that ‘allpw, adding and | yemoying elements from the 
high or tow end i 2, » growing or shrinking the array one element ata time at either end) (addh 


1. For ASBAL to be well-defined, the order of evaluation is always speciied. Unless explicitly 
. Mentioned, thet order is left to-night. 2 ©: oi tonceen 
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and add), trimming toa , particuter range of indexes (tried, querying the size (size), tow index 
Wow), and high index (aigh, shifting the clernents (set Low), and replacing the elements (store). 
This last operation, store, has a sugar similar to that for the record fut operations. ‘We may 
write 

exp plexpo] := exp3; 
in place of 

array_type$store (exp;, ey, exp 9); 
Both forms mean “replace the component ‘at index number xp) ‘in the array PI with a copy 
of exp”. See the appendix for a complete tist of artay anid ‘record ‘operations. a 

Arrays were designed in this (somewhat ‘unusua® “way tobe convenient for use as 
_ Fepresentations of abstract data. 7 aad te prevent access to ——— se “However, 


they area bit more expens 


in time. - 
__ 2.5.1 Examples of Selectors 


Suppose we had an abstract type associative_memory, which associates pairs of integers. 
We represent an associative memory as an array of ingen each ‘record has two components, 


“one for each integer . of the pair, ‘Thus the ¢ representation type e of the associative memory 
cluster is — 


arraylrecord(first, second: int); 1, 100) 
v assuming a maximum of 100 elements is allowed. The associative memory is to have an 
operation tipdate which wil change the second leenent ofa pair, based on the first element. 
U pdate will have in it a statement tke” 
alindex].second := new; 
which is a sugared form ‘of 
RT Sput_second(a.fetch(index), new); 
where RT is ‘recordlfirst, second: int]’. “Thus, we have shown how a selector may be used. 
. Let us now consider an example of a type providing a selector itself a bank account 

record file. It is convenient to design the structure used to access | the. indiyidual account records 
of a bank independent of designing the records themselves.” Of course: the two designs 
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interface in the area of the keys used to search tor the records; but except for the keys (and the 
size of the records), no properties ‘of the retords affect. the design’ of the access structure. 
Likewise, the access structure has no real effect'on the properties of the records. Let us suppose 
the file of al account records is a (rather large) ob ject of type account.fue, and that the type of 
the individual-?etords 4s account.record: “Since wectiht’ tecords are “tunable, we design 
account..file with a selector of type © 

- Seltype (key.type) of account_record from accourit_file 
This allows us to realize the separation of accels fromwie: This separation contributes to 
abstraction by reducing dependencies among different’ types: In the absence of selectors, we 
would: be forced to implement allcupdate actions ori’ iccownt records as operations on account 
files, and present the appropriate key every time. Furthermore, the access would have to be 
recomputed every time, Thus not only ate mere type dependencies created (by making all 
record updates go through file operatioris); but performance ts reduced as well. Renee 
though, that ‘performance arguments alone do‘not: poatity using selector) 

On the other hand, if a selector is used to access the ‘records, then a restriction is being — 
placed on ‘every’ implementation, namely, that ficcount ‘records ‘Mnust “be represented explicitly in 
account files, and that it must be ana wetiane we neten account records Fae once 
the records have been selected.! 


ee Sesiiicg 


We have presented a new module, the selector, designed specif ically for ASBAL's 
ob ject interpretation semantics. ‘Selectors allow components of ab jects | to be selected “dynamically 
and passed to procedures to be mutated. A type has the ultimate contro! over the components 
of its ob jects, and need not allow them to be selected. Furthermore, ‘only the ob ect can change 
the identity of its components, since selected components may not. be assigned to. (Selections 
produce ob jects, ‘not variables.) Records and arrays were introduced as prime exemple of types 


1. Notice that selectors de. not. salve. any of the problems diac’: with accessing - weal on 
external storage; ASBAL assumes all objects exist in. ar ingieeuniformly: accessible address 


space. 
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providing selectors. We argued that selectors are ecemary, tut are 29 be aned searingty so as 
to avoid having types depend on having a particular representation. — , 


: 26. hapiementation 


Now we come ¢o the question of how to implement eff.of tense features’ First, we are : 
going to allow recursive (and nvutually recursive) procedures, ap @ stuck of iprecedure.activation 
records is required. . These frames. {as we aise call the activation gecosds)-ase very much like 

_ those used to implement Janguages auch.as Aigol.and PL/1,-Eacts frame contains the: storage 
for the (local) variables and tenporaries of the proordure: axthention -40-which ‘it corresponds. 
Since a finite (and usually smal) numberof varighles are weed-ia a procedure, it #s possible to 
give each variable a fixed offset from the heginning of the Cenme, which can be very efficient 
on many. machines. As for-anguments.apd retuen yasinbles, they. wil be passed ‘by address. 
The slots for these addresses can also be at fixed. Apennibety: megneive?: offects from the. start of 
the frame, since the argument addsesses may be pit: nthe: tap 0 ‘tie -mack by the calling 

procedure before the frame.ds creates. 

Using fixed offsets in this way fails only fer Joca}. variables. and temporaries whose 
size is not known at. compile-time. (However, descriptors with. shes: si painters to those :parts 
of a variable that are allocated at run-time, can still be rid. at setiouta- from the start of 
the frame.) Most types have a fixed size, and we will. not discuss the mechanisms for using 
types of varying size until the chapter on parameters. On the other hand, we present the 
implementation now since it af fects other parts of the ‘design of ASBAL. . 

Most cases can be handied by sienply allocating the required amount of storage on the 
top of the stack as soon as the. size is known. (This storage is accessed through a | pointer at a 
fixed offset in the frame) There are onty wo situations » where this does not work perfectly: 
declarations with initialization, and temporaries , in the wa middle ‘of exprenions. As we will see 
later, the size of these variables may not be known vont pe before the Procedure which is to 


1. We assume the reader is fairly familiar with implementation techniques for stack based 
programming tanguages,-so-we oT a ek are eS and do: hot Eisent 
| age cies of tmplenmatation. 
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initialize them is invoked. Unfortunately this, is ‘after. all. tie apnoea to the invocation have 
been computed; if any of those arguments are themselves temporaries, then allocating the space 
for the return variables at the top of the stack: willtresate tra “tole” when the temporary is 
freed. Let us present a simple example tp  demorgayt the creation of these holes in the stack: 


var x: foo := Pp (qly), r(2)); 
where the size of the foo is not known until just Del ote p is alld. 


(DD The stack starts as in part (a) of Figure ! A, wit yar tr the current stack frame. 

(2) A temporary variable t_q is allocated, atid ¢ bs eatied-4Hb). 

(3) Another temporary t_r is allocated and _r is cated! tte). 

(4) Space for x is allocated and _p is called (Id). 

(5) The stack is left as in yet (e) of Figure 1, with.a. an hes x and the rest of the 
variables. 


Thus we ‘see that the simple scheme will leave holes: in ‘the:stack.” “There are three solutions to 
this problem. The first is to ignare it; this is not a good idea for more and more holes could 
accumulate (e.g., in recursive cals) and cause considerable waste of storage. Still, it is not clear 
just how. much storage: is wasted, and it may not pay to prevent this particular waste. The 
second solution is to bit-copy the new variable after it is created, maving it to the beginning of 
the hole, and thus eliminate the hole. This need not be theff icient in terms of code because 


git 


many machines have a suitable block transfer instruction; he 


ver, the copying might use up 
considerable processor time and memory cycles. . oe fe a 

The third solution is to use two stacks rather than one. The basic idea is to allocate 
temporary variables on one or the other of the two stacks so that neither ends up with holes. 
Let us call the stack with the usual frames and focal. variables the variable stack, and the other 
one the auxiliary stack! It is clear that in ordetito end. up.with_no, holes on the variable stack 
the temporaries used for a call must be on the auxiliary stack. A symmetric argument leads to 


1. The auxiliary stack will have to be set up into frames. as. well, Aut its frame pointers and 
Stack pointer can be saved in the variable stack. Thus all housekeeping information is kept in 
the variable stack with the auxiliary stack used only for storing temporary variables. 
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(a) 


(b) 


(c) 


(d) 


(e) 


Figure 1. Scenario of Simple Allecation Scheme 
——* worn tee- op ey, er; 


| 


Initial Stack | 
(stack grows downward ) 


Stack during call of q 


Stack during call of r 


Stack during call of p 


Final Steck 
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the converse fact: that to avoid holes on the aaa stack, ‘werhporaries needed during the 
computation of intermediate temporary values must be put on the variable stack. What 
happens is that we alternate between the stacks according to the nesting depth of a particular 
temporary in an. expression. Let us examine another scenario to illustrate this scheme. We will 
_ go through the execution of | 
var a: foo = p(qlr0, s(t0)), utv0) ); 

The evaluation is strictly left to right. Figure 2 shows a sequence of relevant snapshots of the 
stacks. It is not at all hard to figure out which temporaries should be put on which stack if one 
works backwards from the desired f inal conf iguration Note alse that the use of the two stacks 
is purely for the evaluation of expressions within a procedure. Any procedure that is called 
_ during the expression evaluation can put its local variables and: temporaries on top of either 


stack so tong: as it cuts both stacks back to their previous State before. returning... Notice also. 


that both ‘the one-stack and two-stack schemes handle multiple returns easily, by allocating 
- more than one variable at once. . 

It is not too hard to see how to implement two stacks on a computer: one starts at low 
addresses and grows upward, and the. other sarge at:high addresses and gtows down. There is 
some time and space overhead involved ‘in keeping two stack pointers and frame pointers 
instead of one each, but there are no severe technical problems. So, we have seen that two 


stacks are better than one! 
2.6.1. Variables 


In either scheme (one stack or two stacks), a variable isa contiguous t block of storage, 
at least conceptuatty, For variables whose size is known, storage is allocated at fixed off sets 
from the beginning of the frame (in the variable stack). For those whose size is not known, 


1. Implementations of Algol 68 have many of the same difficulties found in ASBAL. (See 
_CBranquart70] for a description of the problems and their solution.) For example, some space 
reserved by loc generators in Algol 68 is more easily put in the heap than on the stack. It is 
possible to put all space from foc generators in the stack, but in ASBAL we must resort to a 
heap, second stack, or copying the space. However, ASBAL does have an advantage over Algol 
in that it does not need a display, since it has no local procedures. ; 
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(a) 


(b) 


‘(¢) 


(d) 


(e) 


(f) 


(q) 


(h) 


(i) 


Figure 2. Scenario of the Two Stack Method 


Execution of ‘var a: foo := pl gir0, s{t0)), u(vO) );” 


Initial Stacks 


Just before call of r 


Just before call of t 


Just before call of-s 


Just before call of q 


Just before call of v 


Just before call of u 


Just before call of p 


Final Stacks 
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- Space is reserved at a fixed offset for whatever dicrimatios is necessary once the variable is 
created. This can all the variable's fixed size parts, and slots for the sizes and addresses of its 
variable size parts, which are filled in when the variable | ts allocated. ‘The figure at the end of 
~ this section shows a piesibte layout for stack frames. 


2.6.2. Selections 


A selection can be implemented as a pointer to (or descriptor of) the ob ject it denotes. 
Slots for. these pointers are easily allocated at compile-time because they have a fixed size and 
are of finite number. Even better, the number of selections is apparent from the text of the 
program. .Thus, allecation for selections is. no.probiem. 
| Checking that. selectors do not select © focal tein, etc:/és. more chatlenging. A compiler 
can. perform the: cheeks by. analysis of the expression ‘given::in: the: select. staternent of the 
selector. The expression must be the-object to select from;.or (rote usually) a selection from 
that ob ject.. The other checks (eg., that the auxiliary: aegurments are not mutated):are handled 
by other. checking mechanisms. with, no- spacial qasing.: Saved: selections in the-with statement) 
present no more problems than regular.ones, and are-implemented: the same way. 


2.6.3, Nested Blocks 


Instead of using a full frame for nested blocks, itis probably easiest to spud their 
fixed size space to that of the enclosing blocks, taking ‘one large fixed size block. Of. course 
blocks at the same nesting depth can use the storage in different ways since only one of. them 
can be active at once. The part of their storage that is unknown in size can be managed in 
stack fashion:: callocated beyond the: apace for the enclasing: block, and'cut back when the nested 
block is exited. These are well-known techniques. 


2.6.4. Checking if Variables are Initialized 


Now we describe the ‘checks netessary for insuring ‘variables are always. initialized 
before use. First, let us see how ‘much a eine oan Ese It is clear that uy sophisticated 
checking ‘might: tnvotve complicated analysis of ‘the control 


F flow of a’ program. However, we 
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would like to “keep the analysis to a minimum. Exchuaive wea 90 ales “structured 


- programming” control-flow statements greatly simplifies the analysis, . The critical feature of 


such statements is that the number of paths through & a prncedere, ts, kept. p.a rnageable size. 
The compiler can keep a record of which variables are assigned 49,19, every black. From this it 
is fairly easy ta combine the information, seperating variables into three classes: . 


(1) those siabie initialized at every use; 
(2). these definitely wninitiaMeed ateomewse, 9 
(3) and these eh eoelenet nen nee ney Sees the rest. 


ays 


| The first class is all right; the second indtonte:am imoserect pregrvam; and the tast class requires 


= the insertion of run-time. checks. Fer sack vurtebtoe! the daxt:elnts, the compilir allocates one 


_ bit of memory in the -run-dirne stack frame te be used ae/bm:andicande-et whether that variable 
- has been. initialised. These bits-all stust in the no ente. ‘Ae the appreprinte places on the 


~ Questionable paths, code wiil-be: generated to aut the tit ta she 4us state, or 00 test ft. Even if a 


variable is. used and assigned’ to in many-plnes; this entre cote wi be inberted in only & few. 
This, atong: with the fact that the cede 4s short tone:er ‘twp dnsunactions on mest riixchines), 
means that there is little run-time overhead. We feel that the overhead is well worth it, 
particularly when debugging programs. Notice that this same scheme checks for initialization 
of return vartables; all. we need do is consider thoye varinbine to sat, uninitialized, and view 
the return stateryent asa ‘use of alt of the return vertabtes,, 


zs 3. Atianing 


The checks required te prevent aliasing are ewaightforward. Fhey depend ona ‘anes 


inductive Principle: if there is no aliasing when procedsne’ pte allied, ‘fiz. none of its 


arguments or return variables overlap), and all local variables of p are dis joint (none of them 
4 

overiip) then we can guarantee that p introduces ne aliasing in. the invocations it makes. The 

compiler does this by making gure that mm veri, soevariatine are, sitased in the calls p 


7 makes. 


Te igh sign + Span oi cg 
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variables overlap, and which do not. The Euclid report [Lampson771 gives a very detailed 
definition of which variables overlap in that language. We will be content with a less formal, 
more intuitive description. First, it is obvious that a variable overlaps with itself. It is also 
clear that a record overlaps with any of its components, and an array with any of its elements. 
This carries down through all fevels, so.an_ array of records overlaps with any component of 
any of its element records. On the other: hand, if two variables do not overlap, such as two 
local variables with different names, then none of their subcomponents overlap either. When 
two variables overlap, one must contain the other; hence, when two variables do not overlap, 
they are completely. dis joint. - 

How do we extend aliasing detection to general selections? First of all, any .selection 
comes from a particular Object in a particular variable. ‘We need only. check selections from the 
same object. An ob ject and any selection from it are considered to overlap. Selections from the 
same object generatty require: a run-time” ORR. “This” “theck ascertains whether the two 
selections overlap physicafty in storage. The starting address for each selection is always 
available at run-time, but the length of each must be prpvided in ‘addition to the starting 


addresses. 


In a later chapter we will extend aliasing prevention to cover.the use of pointers. Our’ 


altaame detection methods are based’on those ‘of Euctid {Larbpson 77. 
2.6.6. Summary 


ASBAL requires one stack to be maintained by its run-time system (but may do better 
with two). The stack frame for a procedure activation contains the local variables references to 
the arguments and result variables, and housekeeping information (return address, old frame 
pointer, etc). For most variables, fixed offsets into the current frame can be used. Some 
variables require a certain amount of descriptive information (descriptors or dope vectors), 
mainly those whose size is not known at compile-time. Figure $ shows a possible layout for 
Stack frames. . 

Argument passing is by reference, ie. the addresses (or descriptors) of arguments are 
passed to a procedure when it is invoked. Returned results are simply extra argument 
variables; the addresses of the variables are passed. Most of the checking for aliasing and 


me ER Eee 
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"uninitialized variables is handled easily. at compile-time, and the run-time checks do not 
amount to much code. We conclude that our scheme is about = effictent as possible given the 
level of aiey we require’ and the features we. want in the. language. | 


2.7. a aes Example 


In this section we will present a programming . ,example to help illustrate the 
fundamental ideas introduced inthis chapter. <The example if a' type definition, but since 
clusters (the form of type definitions). have Procedure. and, selector definitions inside them, all 
three module types will be. iMustrated. Later: we Witt see that ‘using’ more advanced features 
allows us to write better definitions for the. eae we now: BPN but at this point we are 
_ Festricted to the most basic of features. ie 
definition ia. ASBAL: the rep (representation) 
type, and definitions for the operations. As in CLU, we os these 2s rial ina mcaing ie 


There are. two essential parts to a LYpe 


module called the cluster. The syntactic form is: ss ea ae de 


aetna = cluster is oi at aaa alone 


Rep =rep_type; 
operation_name = proc ... ;. 


- Operation_name = selector ..; 
end typename; 


The procedures and sselestors may be mixed. There. also may be. internal procedures and 
selectors; an internal operation is one that can be called ‘ony from within the type definition. 
‘Internal operations are ‘distinguished by the fact that they ‘dos not appear in the list of exported 


ee 
2.7.1. Bounded Queues of Integers 


In this first example, the task is to define and implement a new data type, a bounded 
queue of integers. The operations of this type and their functionality are listed below. 


create: 
insert: 


remove: 


is_empty: | 


is_fult: 


Size: 


proctype () returns (queue) _ 
(creates a new, empty queue) 


= proctype (var queue, const ino 


(invests ‘te titeger at thie-end of ‘the queue)’ 


proctype (var queue) returns (int) 
(removes the front member of the queve) 


proctype ‘const queue) returns (bool) 


(returns terme and vorripsit ahs quame-ts aampey) 


prectype (const queue) Teturns (boo? 
(returns teue if and ye oe qeeenee 


proctype (const queue) returns int) 
(returns the number of members in she queue): 


These queues will be bounded in size, arid the maximurn size wifl be 100. 


2.7.2. The Representation | 


It is easy to decide what representation to use for this ‘type. An ‘anny of 100 integers 
_ will hold the members of the queue, and will be managed in ctraslar buffer fashion. One 
index will be maintained: the position of the first. member ef ‘the queve. “The ‘members will be 
stored in order of increasing indexes in the array, modute 100. The size will be kept ‘explicitly. 
vive our type def inition will begin: 


” queue = cluster is create, insert, remove, temp. in full, ste, 
cep = secerd.{first: int, 


size: int, 
qs atk 


at = “array Lint; 0, 99); 


end queue; 


___ Will be explained in the next chapter) Notice that there is no, petu 
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2.7.3. The ee ae 


We will write the create operation fie: ‘We set the fi st-compenent Of the rep to be 


zero, the size to be zero, and fill the whole. array. vith yeran. ie array ts ds. fUjed for efficiency; 
it does not matter what it is filled with in this case) The sproberpameeet is presented 


3 4 He ey 
below: © : 


“create’s = proc () returns &e eve) 
iia aca wits li é 
i. 8 
“sean (0, , 100); 
“ andetrente: a eS MPa Tart 


The notation evt (from convert) indicates a variable or ‘aii whose type is viewed as the 
abstract type (ie, the type being “defined os Zt outset module, and the rep type inside. Of 
course it is only allowed in a: module def ees apd. always meank that,type by context. 
The expression af$/uKiJow,num) denotes an array hid Awl chee: chamnes are copies of i — 

5 $e PY *, 


(made by using ¢Scopy), for all indexes in the range ‘leo te to | done nue J nch sive, provided num 
is not negative. (Calling af$/ill with a negative third argument is an-error, and. what happens 


er 


wt hg 


above; for convenience, the end statement of a procedure does an implicit return. . 
Let us move on to size, is_empty, and is_full. . 


size = proc (const q: ey returns due mai 
' $:= q@.size; Rats ras Pes aes 
end size; . : 


Ca ane we | 
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is denvoky = proc (const q: ero returns (e: = hoot 
ts {q. size = 0); 


end is_ mga) 


is.fall - proc (const q:  evt) returns (f; boob); 
f := (q.size = 100); 
. end is_full; 
‘Our integers and booleans are like those of any other language; details are in the appendix on- 
data types. The use of ‘=’ in q.size = 0 actually indicates. call of ‘intSequal (q.size, 0)’. This 
use of syntactic sugar allows us to extend symbols such as ‘e’, ‘+’, ‘-’, ‘s’, '/', etc., to abstract types. 
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Full information on these sugars can also be found in the appendices. oe 
Now let us write the insert operation. 


“dnsert.= pene (war q. ont, const watdad sotmene:;. 
if qsize ~ 100:then error end if; — 
vat index: ees 
qaqlindes]. = a. 
q.size = q.size + 1; 
end insert; 
The ‘//' is a sugar for typeSmod, that is, the modulo (or rerehindet? qperation of the. type. 
Notice the use of sugared array and record Conpocent capi hent operations. The next 
chapter will present a mechanism for signalling and tamdling eneaptions,bet‘tor now we will 
write error to indicate that appropriate code‘has ‘been erated. 
The remove operation should now fe aaoy far she:remter: . 
remove = proc (var g: cv) returns temier: kath, Be eT Se ae 
falh renin bob eeiat ao ee 
qfirst = Strat + 17 108, 
q.size = qsite- 4; : 
end remove; - a ore _ hats Ae Ag 
‘Finafty, hete se eck leo the spt: Th ep at a sugar for 
typeSnot (expr). 


- Var q: queue := ccauiceat: 
if ~ queueSis_full(q) then quenésineert qt foot; end f; 
if ~ racine emmy (q) then. bar = gmat amt 
var s: int = = queweSsize @ 


This data type (queue) fut pens ome any eo However, there wil be severa 
Sree oan Oo atte heat Mee” 7 . 


zi : j ae 4 wut SBA Sapiens ets ae eiale pie: ae eacacey aoe Ba Ss ag 
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2.8. Conclusions 


| This chapter_.has dealt with the .fundamental.semantics of ASBAL, a language 
7 | intended to preserve as many, of. the abstraction. fenwuees.of OLU- as is ‘possible under the 
_ constraint of a stack-orlented semantics.and dnplementetion, :We-started with:the:notions of 
variables and ob fects. We then. wept nto the semantics and. the; ayntax. for:procedure call and 
return. ° Aliasing was discussed, and: rules formed to prevent! its occurrence.: “A satisfactory 
solution to the problem of uninitialized variables was presented, and an Implementation 
outlined. Next, the mechanism of assignment was explained, followed by a discussion of 
somponent selection. After discussing implementation, we. presented 4 an example to illustrate 
these cancepts. The groundwork has been aid for . more advanced features of 
ASBAL. The next chapter wilt introduce two new features: Herators, 20d exception handling. 


tatg AN 


3. ‘Two Extensions 


In this chapter we extend ASBAL by the addition bal two new features ~ Kerators and 
exception handling. Retaters iritreduce a new Kind’ of siidérattion, “and are implemented by 2 
new kind of modute. On the other trand, exception hailing’ jist completes the previously seen 
modutes; it changes then from pliitiat functiddie'ti Yona! ballet by illowing them to specify and 
deat with exceptionat cases: ee and then modify it as 
ney oo SEAL 


3.1. Iterators 


| A major goal of abstraction in programming fs move the programmer away fram 
_ details and Into working. at a high conceptual tevel, Procedures provide. functional (or 
procedural) abstraction, and ‘clusters provide data “abstraction. Another useful kind of | 
abstraction has been identified, the control abstraction {Liskov77,. Wulf 6b]. The only sort of 
_ control ststraction we wil offer is.2 genersiicaton of taping called: an Meriter based on the 
iterators of CLU. Stee her one ae oe 


WM generation of the eqns of at hat be apr on, 
(2) operating on the data, and 
(3) testing for completion. 


~ Iterators provide a modular way of generating the sequence of objects tq be operated on. In 
CLU, an Iterator generates a sequence of objects that are passed to the body of a loop. The 
crucial point is that an ‘iterator generates the sequence of thems incrementally: one ob ject at a 
time. This will be easter to understand by following through an example. 

Let us say we have an abstract type Mnery_tree. Further suppose that many of our 
programs that use binary_tres's need to examine all the leaves of a tree in left to right order. If 
| we are given operations to fetch the left and right subtrees of a tree, we can look at the leaves 
in the desired order by keeping a stack of trees. .A loop to do this might look Hke (in CLU) 


1 PE at Ei RRO NGS A BE aS RT ED ERE FEET OE 
SE REE ast 2 - Ret 


_t: tree ss tree of interest, 
st:. treestack := treestack$create ); 
while moi do. ae) eee 
if tis a leaf 
thea 
loop body 
if treestackSempty (st) 
: then more :« false, 
else t ais (st); 
end; 
else 
"‘treestackSpush i righ subtree of a 
fonpieaiones af ©. At ae 
end; ; ee eg ae 
end; ¢ 


muse 


Thus, the stack of trees is used to remember, ‘thes mibicees the Jeans of which, have ‘not been 
generated. Writing this code out for every loop is some ERG 9. £FROTS ad, ralies.oa, many 
details. If the type binary_tree oeieree an iterator called leaves, we could write the — loop 
_ this way: eed : 


for |: leaf in binary_tresSleaves (Ode: 
.., loop body 
eet ‘ettd: 7 Bel ay 


‘The variable / is called a loop variable, and is Jocal to the for statement. 


The for lop Is more tothe polnt, und spends pe bess detail than. does the while toop. 
In short, iterators provide: better abstraction. Iterators can alo be.more efficient than loops 


| written ‘out, because they can be ral _s a m .chster apd. thus have. access. to the 
% representation of Ob fects of the type., The definition of the $erg) xt leaves. spight look, like this: 


Dt the 
geet. 


leaves = iter tb: binary_jree’ yiekde (iat; 
if 6 is a leaf 
then yield (b); 
cise 
“ytekd (D; 
end, 
for t-leaf in bea tha gm 8 rt) 
yield (0; 
end, 
end; 
end leaves; 


The recursive iterator makes our intent more ebvious, and shows a sytimvetry fo the generation 
algorithm that was obscured in the whtle teup.. Thorn ton pocomeliey:that the recursive version . 
is fess efficient than the iterative version, bot i ls not hwmedintely aby 
tipon implementation details. 

. a The basic actions invoived in 
ond ind sacha edie " 


() the for cs calls the iterator; 
_ (2) the Herator ytelds ‘ob jects to the bodg-of hota 
_ @) the loop body is executed with he foop variables set to the sbi ylelded by the 
. iterator; . 
(4) the erator ts restomed, whereupon iether continent yk ferme, oF ao 
(8) the Mterdvoe returns, tertnl a ig the foop, ao 


Note that the top body 1 ented once per yi, a the exemple would seem to Imply, Also, 
the ftetator ¥8 always resummed just after its last yield sentement, with av fecal variables intact. 
Thus iterators are a form of corowtine. General coroutines require one mack per coroutine to 
run, but iterators are sufficiently restricted that they can be implemented with a single stack. 
(Iterators run in & single stack because of the particular patern of resuming they use) Let us 
detail the transformations made to the stack for exch af tive baste scthows Noted above. 


et NEBR, go Pe ai ence ee: a at A 
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(1) - Iterator -call.- the arguments ate passed anda new frame ‘ts pita alae iterator, just 

as ina procedure call; ae PEs 

(2) Yield - the loop variables, which are created at this point une they are of fixed size, 

are set to the objects being ylekled, the iterator’s resume address and frame pointer are 
. pushed-en the sinck, andthe for-leop borly:ts: ernered with: the enviroriment reset to 
that of the. iterater’s-ealter; (netice that: this ts stwitier vo-a-call ‘even tug yrekting is 

semantically the same-as returning); - me ea e 

(3) Loop body ~.the.Jaop body executes: normally; pushing any temporary information on 

the top of the stack, beyond the sterater's frame; : 

(4) Resume ~ the stack js Popped ! back down, to the iterator’s ters and. execution of the 

iterator begins again at its resume arian with its nay eonnent restored; . 

(5) Iterator return - the iterator returtis to its callers execution continues after the for ee: 
chug, a yield is a kind of call, aad. a resumets a kind of aaa both are 2 sme case of . 
coroutine resumption. ha cae a a 

As the example deriorecaies iterators may contain for feops, even ones that call the 
iterator recursively. This is useful for walking: recursive dita ritaiinttr! ‘Although we did not 
show it, it should be clear that for loops can, be. Nested, with Ag diff iculty.. 

Another feature we did not mention is that a for loop can be ferminated in other ways 
than by the iterator returning. The loop body can “execute a special statement ¢ called break, 
which terminates both the body and the iterator, continuing execiition after. the for loop. The 
body may also execute a return statement, which terminates the body, the iterator, and the 
routine with the for loop, all at once. 


8.1.1. Implementing Iterators for ASBAL 


The description above hai been of iterators as they appear in CLU; here we will see 
what form frerators take. in ASBAL. First ot aft, our call mechanism can be trivially extended 
to include calling iterators. Iterator returns are ‘also trivial, being the ame as procedure returns. 
Yielding is a little more complicated. Semanticalty"a yield is like a ‘return. However, it cannot 
be implemented as a return in ASBAL because returning in ASBAL always create new ob jects; 


. semantics of cLU erators to help us design iteraters for ABBAL Mle then. signe 


“an iterator should be able to generate a sequence of existing objects, such as the elements of an 
array. This suggests that a: yield eer ee ees ee will be 
evaluated to ob jects, as is done for selections: 


yield (exph; 
. yield (expy, Xh2, es » txp,); 
We also wea a siaida this bac dacashasaedals Ai aud ac eicins aie aes As same form 
_ aS procedure headers), which defines the order of the Kemtcand thelr types. It ts useful for the 
iterator to control whether the objects it ples witt oe: constr. var th the: so body, so the» 
:; yields clause includes that information as wefl. naesiauaeeans cial 
i = iter (const a, b: int): yields -Ceonst int); . 
t = iter (const f: fon vt: ah rebar, emt ea 
oreven.. ..- 
. “Liter (const count: iat) pies. 0; 
Now, let us consider the. form of the for loop itself. The general form may as well follow 
_ CLU's. The ‘only part that needs to be different from CLU t the dechiration 6f the‘ loop 
variables; the declaration will state whether the loop will use the ——— as conet's or 
var's, Here are. some examples:, 


_ -« for.const. xs: dat in: dos hte 
7 for var x,y: int in ... do .. end fer; 
ile diets vat 1: bool in .. ‘do... end for, 
The forms of the break and retucn statements are: ais 
break 
and = = ga nies" hs ‘ 


return 
3.1.2. oameey 


We introduced the notion of an Wertor a8 It appears Ja GLU, and we looked ‘at the 
| a form 


~ “for iterator definitions and for loops in ASBAL. There will be more cramp ot iterator 
definition and use ‘at the end of the Chapter. 


8.2. Exception Handling . 


In our earlier discussion of procedures we omitted one important aspect of procedural 
abstractions. A procedute, iterator, or selector’ ‘might ‘notify its ‘caller. of an unusual or error 
condition. We unify the terms unusual and. error ‘in the term exception (or exceptional), after 
Goodenough [Goodenough75]. In this. section; ‘we’ first examine CLU's exception handling 
mechanism,! and then proceed to modify it for ASBAL, in much the same spirit as we did with 

_ iterators in the previous section. i 


3.2.1. Exception Handling in CLU 


Any procedure or iterator (we say routine for shor) in CLU may signal exceptional 
conditions to its caller; "The GLU viewpoint on the meaning of such signals is this: a module 
signals to indicate that it cannot perform its duty as a good abstraction. This might be due to 
an inconsistent state of an ob Ject, because of bad anguments,. becau 
because of a system limitation (eg., out of memory). Of course, i may, less odiously indicate an 
unusual but predictable situation, such as end_i file. The simplest semantic view of what a 
procedure does when it signals an exception is that it returns a different and distinguishable 
kind of ob ject to its caller. Each, exception. the. . procedure might want.to. signal cen be given a 
different name, ‘and a list of ob jects can be sent along with the signal to further. describe the 
condition. . . 

The. procedure's caller has. the option of hgndling exceptions signalled by the 
procedure. If the caller has" a handler for the ‘exception, then it. ts, executed, and. execution 
continues after the statement to which the handler was attached. If the caligr, doesnot have a 
handler. for the exception, then the caller signals, a special exesption « called failure, sending 
along the string . 


of. a hardware-failure, or 


1. We note that this: aspect of CLU has. _— Sub ject to change, so do not consider what we say 
here to be definitive about:CLU. However, the enn of of che mechanism is expected to. remain 
the same. We trust that any further work with’ A vould adopt any improvements made 
by the designers of CLU. 


“uncaught exception: name_of_origtnal_exception” i 
Here is the format of a statement with a handler block attached: 
. statement; 


except. 
when exception names handler;; . 
when vipa aaniged encanto 


end; 

A handler block handles only exceptions arising from invocations im the satement to which it 
is attached. Handler blocks may be nested, since a statement with a hander black is considered 
to be a statement. If more than one handler is available for an exception when handier blocks 
are nested, the innermost one takes precedence. ante eee 

“This exception handling mechanism tte to thet of, mL {1BM70] in several 


ways: 


a Handlers are textually associated with blocks of code, rather than being enabled by 
something like an on statement. ‘ 
(2 Executing s signal watement steer ent the cure procure, and it may not be 
—* resumed. 
) The entire cal stack is not searched for active handlers; rather, a procedure must be 
Pepa eh a Wi ae See or rerio erty 


| Having handters statically associated ‘with blocks ot outs 3 was , chosen over dynamic 
"mechanisms because itis cheaper sid enster to implement, les confusing, and sufficient in all 
“cases. Sieraning wei iesipebear haters rasta clas nah Sa 


SS 


1. To help in debcegine: if a procedure does not snes ttre; ther it signal flr, ans 
the same string as it received, instead of “uncaught exception: falters” - 

2. It is safe not to handle an exception only peace that tive: ineecation try question 
will rot raite that: exception. For amp * Wea eee revere ve 
aeeaiclad ican ae! for division by zero, 
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Thus a procedure is saying “I give up!” when it signals. 
Let us go through an example. Suppose we have a type queue with an operation 
called next which returns the member at the front of the queve and removes it at the same 
time. Clearly, queue$next cannot work when applied to an empty queue! Let us say queueSnext 
“can signal an exception empty. The definition. of ‘queustnext might Took like (in CLU) 


next = proc (q: queue) returns (element) signals (empty); 
if ¢ is empty. oe signal a . : 
fleupgs - 
return (old head 9% 
‘end next; 
Thus, we see that a signals clause is required in, the saaauiee header. Her: are some 
examples of such clauses: 
signals (foo, bar (int)) 
signals (bletch (int, int, bool) 
‘The first one states that the procedure can ‘signal two ‘exceptions: foo, with no objects, and bar 
with an integer. (Factoring is disallowed here because it leads to mnie? To send ob jects 
- along with a signal, they are listed a as in the yield statement: 
“signal bar (7; | 
sipnel-foo tis 5,2 9:2, x > 5); 


A call of queue$next and handling of the exception empty might look like this (again in. CLU): 
begin 
XK i= queue$next (q); 


end; 
ae 
when foo: . 
“when sey: 
when bar: ..; 
end; 


1, We are not considering parallel processing situations where such a request might hang until 
another ee puts an item into the — 
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Af a signal dso te tr et ein by ch me heb! The 
following example shows how this is dane.. 


aan 


begin 
Sa : 
except ? . F s § ons = a 
when oh_foo (x,y: int, z: beed: dedyof hendier;, 
end; . 


In CLU, the seman f tending obs with sg th se ath etn ob jects. 
executed just as if & procure invcaton tad sgn Maoh to ofthe gr is 
Se For axe 

. in tterate (x) de re 


“na 
exeept | | 


If a signal statement is executed in the fer oop bedy, tennis the iterntor, and. ‘the routine 
’ containing the for loop are terminated all at once. tices tle fititterene rom the beady: 
catching an exception, as in 
for .. do 
statement; 
. except 
when oh foc: ..; 
end; 


end; 


If oh_foo is signatied ‘by some routine invoked in statement, nn the handler will be executed | 


1. Actually, the handier may choose to ignore the. a- svat, the ambitious reader can 
Oren, the nen in the ce paeee 
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and the execution of the body will continue. Assuming we have shown all handlers, if oh_bar 
“iis signalled by some routine called in statement, the body and the iterator willbe exited, and a 
more global handler executed (if there is one). 


3.2.2. Exception oe in ASBAL_ 


To transfer CLU's exception handling features to ASBAL, we need forms and 
semantics for signals clauses of routines’ headers, signal statements, and handlers. Signalling is 
basically like. returning, but the items sent along with the signa) will probably not be handled 
the same way as. return variables. For one ‘thing, it is wasteful to allocate ‘Space for ob jects that 
might only be signalled once in a while. Another. Point is that these ob jects are always the 
initial values of some new variables and constants: those declared for the handier of the signal. 
- The best approach to sending the objects: appears to be to leave them on the top of the stack. 

- Unfortunately, the. ‘space at ‘the top of the stack overlaps with the variables of the 
signalling ‘routine. The ob jects will have to be computed. first and then ‘copied to that area. 
Unlike the case of returning, we will probably be walling to pay. the price of copying items 
down onto the top of the caller's frame when they are to ‘be “signalled, since exceptions are 
generally rare compared to returns. ‘This leads us to a signal statement like CLU' $, except that 

ours always creates new ob fects, just as our returns do. Thus we write: © 
| signal foo (10, b(3)); 

signal bar; 

The signals clause in pioceduts and iterator headers gives a ee of types, with no names, just 
as in CLU: . 
signals (foo, bar (int, array(boo!))) 
- signals (bletch (int, int, bool) 

_ Once the calling routine has the signalled objects at the top of the stack, the transfer to the 
handler is semantically a jump, but objects are sent to plug into the handier’s variables. The 
handler's variable list will take the same form. as. that ofa promedure poeacter's argument list 
part. For example: 


consists of which range of ackdresses:in the: 


ea 


‘table. The copying cf clbipcts: does not and: to. problaen: 


except when:foen(comst i: int, br bool; vere: chiar); ... bo ooh d, tag Renae 


ay the expressions: irr the signal statement. wap are computed, “ening. Gaiecis in: 
i. temporary variables of the signailing: pro noah: ee eS 
(Da run-in xs rate eraios: dy eraibieg, the tne 


routine; 


com it Proceed: to ad the sak = ee ete 


Wie 


id. a BA 


This is. bit compli, bot te rane stom ratine cette , mir sire rot: 
too painful. ‘The information: chat.rmust: be hept wropumt ' aac sre wl anaes :Fasenily it 


Wel Tes jitcss Mes eres 
aay a < i " 


of the exceptions ‘handled! and’ tte dresses. f af é 
ordered correctly, the ruibime restine need’ ont ld the fiat asain searctt of a 
fixed: offset slots for the: objects, awe ee ee The 
ob jects ttiat really go on top: of the stack can be: qut there: iir-angy onder: pire they: are: referred 


Tic [hes 


to: through pointers, and: popped: off all-at gree: because: they, alli Hever: the: samp, sone: ‘Fhus, 


there are no overwtietming seelocnamnation prottine fr ame prop exception. handling 


on Ts tit acjose ay Be neat part of the bs 


mechariern; thougt it: dow oF cumree ON aE 


i 


ini ws tyes a tes hing 
Fiwedt: of fset: stot: ter paste’ cries eps: (The he por 


handler: variabie:): 
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3.2.3. ‘Summary 


We have examined CLU's — Lesainci biaaisaine in aaah Based on this 

notification and hain or Sil Fortnatey, ta changes were needed in. the 
_ mechanishit Borrowed from CLU, ahd ‘iteeté’ additional mechanism was required. “Again we feel 
we have been successful in Leaaiiind a sche teati ie from CLU t to ASBAL.” 


3.3. An n Example - Sorted Bags of Btring 


This section presents. another data type definition: a sorted bag of strings. This data 
_ type might be used for coraputing the. frequeney-of occusrence of different: werds in a sample 
of text, and,.printing . them: aut. in: aiphabatientronden’@ur Presentation: ‘is based° ow the 
example: in CLishovi7). plete ts. sent Seam ee 


create: . Y preciypet) rearing): 
(create a new empty bag) 


insert: _proctype(var bag, const stringl:20)) signals (ful) 
(insert the string into the bag; signal full if ee is no more room) 


count: proctype(const bag) returnstint) 
- (total mir of ies In bag, counting repens) ies 


size: . sieceipateonel bag) returns(int) 
(total number of distinct items in the ‘bag.,[e not counting repetitions) 


Increasing: iterty petconst bag) yieldaconst string 20), int). 
(generate each distinct string in, the: iad with its repetition count, in 
alphabetical order) 
_ The type string in. ASBAL isa sequence of characters of cours, string variables must puta 
limit on the maxiniuri ‘size string they can ‘store. “that i is the reason for the » parameter ° ‘20 to 
the string types ‘above. (The ’ in ‘String ringt our wilt be exphined in the next chapter) A string is 
different from an: array’ of ‘characters tn’ that its contents cannot be changed, Le, strings are 
immutable: Strifigs-are whole values even though thelr individual c characters ‘ant be ‘actessed. 
The usual operations on strings, such as substring and index, are provided in ASBAL. A full, 


_list of string operations is in Appendix Il. | 
3.3.1. The Representation 


* The, representation we will use'for bags ts a binary tree. “Each neds will contain a 
string with a count of the number of times: that: str as’ teen: verted: in the-bag. All. nodes.. 
te left of a given node contain strings which alphabetic } papcede- the: string, asseciated. with 
the given node. Of course we need: to: keeps count.of the:nmmber of iteras.in:the-entirg tree in 
order to compute size and count efficiently, This. a is:then: oe like this: 


record {count: int, 
size: int; 
t tree} 


| We will maintain the tree invan array, a indexes:as:“pointers™ ‘to-the- - subtrees in the 
- Nedes. (We must gut a liit:on:the: nombser: of distinct ttones ina: Dag. We wil use 500 inv this 
‘ example.) This adds stuff to the rep type: (Fo:-be cently:clean- about: it. we would define the tree 
part as another type, but: we desired to keep the examph :  Thereniets: 


=P = record (count: int, 
size: int, 
root: mbranch,. 
tree: an]; 


- an = array (node; 1, 500); 


node = recerd{s: string{:20),. 


left: mbranch, 
right:  mbranch; 
number: intl; 


mbranch = oneof fempty: . null; _ 
branch: intl oe ae ie 

The type mbranch is short for “maybe branch’ te inher erp. dengue n branch, by an 
index into the array. “A oneof type is & discriminated: anton, somewhat tke, the variant records 
of Pascal Cwirth70. A oneof: ob ject is a tag (one of the ftetd: names) along, with an-ob ject of 
the corresponding type. (There are operations that convert: an object of some type: to a. oneof. 
ob ject with an » SPpeepriaee tag. They and the tageace statment: wl be presented below.) 
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by ear 


. Allocating space for a oneof variable is easy, just. ate the, manta of the sizes of the 
various ee types in its fields, plus room for the tag. 


- $.3,2. The Operations 


‘Let us start with the creat: nope fap. En set all the counts to 0, and 
initialize the array. - lores oe levis 


create = proc () returns (b: cvt); 
' fone: mbranch := mbranch. uae ornety Neer ae seh nee 
n: node := nodeS{s: ’ aime 


left: -none, = 
right: none . 
nas -itwatalbet: 0); ; 
b := rep${count: 0, 
size: 0, 
root: none, 
tree: anS$fill (ny 1, 30001; 
end create; 


The ™ means the empty (or nul string. Fhe creste option shows how. to make a oneof 
value from a non-tagged value of the right Lype:.tee the ‘mahauteg! paneer in this case the 
make_empty operation. (This operation calls the copy operation of: mhusin 

Here is the insert operation On bags:.... ah be ted sc 


insert = = proc (var b: cyt, const pperen spare Signals (fds | 
* “biroot := insert! (b, ear a oe aa 
end inset; « - 
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insert! = = proc (var be rep. cont &: : tring 20), root: mbranch) returns (om: mbranch) seals (full 


ERIS he Se 


tag empty: 
mM add_node (b, 8); 


tag branch (const 4: int): 


m = root; 
i aahealidanh abetted 
ifsens .... Ly oe gto 
then 
nsaimber = n.number + I; ae 
b.count = b.count + 1; 
- eleif s < ns 
__ then nla t c= dnsertl rot sede; 4 
‘else n-right » insert! (b, s, nright; 
end if; 
end with; 
end tagcase; e 
except whan ful sigma fut em ; 
end insert); 


add_node = = prc (va be, cme rgb tr: branch signal 
if b.size = 500 then signal full; end if; 
b.size := b.size + } 
b.count := b.count + 1 
none: moranch := m= moranch$make_empey (allt; 
eee ee = Seah 8, 
— i, 
right: - noned;, 
br c= entoranch Sine Dbritich t:site); 
end add_pode; 


This operation iflustrates the use of internal procedures (that bn procedures net exported by a 
cluster); it also demonstratié’ how te use the tapee  deiaioehte, ty’ diecrin e ‘with a oneof 


4 


ob ject. Each case sarts with ‘ag tay’ and allows «name to be given trshe @ppct 20 that the 
name has the-dlscriminaied type. ‘This ia the oly way an otrjert.im a. seypet scan ‘be enutated. 


“Wee also see a real use of exception tandling and signaling, atheugh meta weey-fency one 


cans count and ee ons 


count = proc (b: cvt) returns (c: int); 
c := b.count; 
end count; 


size = proc (b: cvt) returns (s: int); 
S$ := b.size; 
. end size; 


’ The fast operation to write is the iterator increasing: 


increasing = iter (const b: cvt) yields (const string, int); 
_ for const s: string, i: int in pleated tb, hake ma 
yield (s,.0);. ; 
end for; 
end increasing; 


increasing! ~ iter (const b: rep, br: mbranch) vise (const string, ind; 
tagcase br in 
_ tag empty: | 
tag branch (i: int): 
with const node == b.tree(i) de . 
for const s: string, j int tin increasingt (b, node.left) do 
yield (s, p; 
end for; . 
yield (nodes, node.number); ( 
for const s: string, ¢ int in increasing} (b, node.right do 
yield (s, p; 
end for; 
end with; 
end tagcase; 
end increasing]; 


Again we see a recursive internal operation and use of the tagenre statement, At the ne! devel 
our entire type def inition looks like this: 


* 


bag = citer i rut, fe, nan, meri 
rep es 


craaie mG 


end bag; tie Wage te 80 a Gr AES 


Here are sre example wes of the bag sbtracton the ins dino 


F Pegg 


b: bag := bagScreate (); , peas ets 
bagsinsert (b, "a string); i aa aaa 
avg: int = begScount (b) / bagtoise (6); oe 


n: int = begtemume (Oh 
ee Fant ena 


par 


Ve i in og EB pee CE 


3.4. Suriinary ne 


This chapter tas presented hewrs and ecaptin hang fer ASBAL. These two 
features were borrowed with Wetle change from CLU, and thet peter te. 
successful. AN te ona fur of ASBAL. fare now bout prosmind,sming ty From 
“SCR” with alteral ie : bic wasdpretation et variables” The next two 
chapters consider two additions to the language. The first ts paremererteation of abstractions. 
We will exptore adding CLU's paremeer mechentim 10 ASBAL, and will end up augmenting 
it with an original feature. for handling types wih objects of dynmmieatly varying size. - The 
following chapter investigates adding limited list-proomsing capabilities to the language. The 
Feneures denigned allow che commrecton of gumeral grph areca wahew gurbage collection 
~ i the stack. 


mi 


4. . Paveinatenn 


_ This chapter presents the ASBAL. mechanism for. parameterizing.. abstractions. We 
begin with an examination of parameters in CLU.. We then.:borrow and. extend. CLU’s 
mechanism, modifying it to suit our needs, The. major, extension made is. for parameters 
relating to the sizes of objects in ASBAL., We have several. goals. in. extending CLU's 
mechanism for ASBAL: . 


mane U | to make programs as independent of the sizes of their data ob jects as. possible, and to 
allow sizes to be determined at run-time, 
(2) to relieve the programmer of the burden of keeping, track of the sizes of variables, and 
' to transfer this burden to the compiler and run-tinie system; but, 
(3) to allow the programmer ultimate control over the sizes of variables. 


After presenting our parameter mechanism, we give an extended ‘example using it. We close 
the chapter with a discussion of possible implementation techniques. 


4.1. Parameters in CLU 


Here we discuss the parameter mechanism used. in CLU. We start with the dengien 
and most strongly motivated case -. parameters to clusters. We present a a full example of a 
parameterized cluster, and then move on to paritheterizitig other abstractions. 


4.1.1. ‘Parameters to Type Definitions 


Let. us say we have written a cluster to implement queues of integers. A while later we 
find a need for queues of strings, so we write a new ‘cluster to implement them, borrowing from 
‘the previous cluster. Some more time passes, and we. find we need queues of customers. for a 
simulation program, so we again adapt the “queue-of -integers cluster. This copying and 
modification could go on forever. What is. worse, if some subtle bug is found in the: original 
cluster, a lot of effort is necessary to find and correct all the other clusters that copied its code. 

‘One might imagine using a fancy text editor or macro processor to help in this 


| -correction and updating process However, cise cap sis Gk ia eee a aes 
abstraction generator: a parameterized module providing ene abatramion erect of pararneters. . 
. ee ee 
-*° anidte allow adty type te Ge tilled tn tener te get the tani ‘off qqlted : Th : 
| action or x Casa Ot qooue taper, we wpa ath in weston, A 
parenictettoed type etnies tr tie teptomenniiion Wt at atsnenaslel entrar called a type . 
+ fgenetater, sinces the sibstrittlions generated are'types. Ws os ero evga sit seomamtis 
aaa cata eceeae 
queue = ~ chester [t:typel ts create, eng, dog, empey, 


rep = avrayltl; 


deq = proc (q: cvt) returns (¢) signals tempty); 
if repSsize (q = 0 
"then signal empty; 
pricy scinade 
Ye, weed; 
_ end deg; 


cme wine eee Sh 
return (repSsizetq) ~ 0; 
end empty: . . 
end queue, 
¢ The first thing’ to notice isthe Te: typel’ aftr chester, Which signifies that yous takes a single 
_ parameter, called ¢ and tat the'acual pare! sit be 2 pe ‘Than, for every type (foo, 
- say ‘there e exlits a queue of that type (writen. feo is 


. 
a tet anes ren el rity eco yes OF 
ORT REE PEE SW OES ase es 


plate seit 


' legal because queudint) is a type, so it is a legal parameter to queue, etc. The representation is 
chosen - to. be. arrayle). - this eeyqnatrates that.¢ is interpantedras : $f > tt: Sere: an actual ‘type 
Specification! inside the Guster definition. The create-qperation simply returns an empty: array 
(representing an empty. queuy). Fhe eng. operation adds‘a.paw element to:the high. end:of the 
array. Notice that ¢.by itself isa valid <ype-specification in the hander of ‘the.eng operation, It 
is also legal to declare. variables to be-of type:t. insida-the. dhister, wemention this ts drive home 
_— the paint, that ¢-really 1s: taken to-be.a type: specification avian’ the definition of queue. The 

deg operation is symmetrical, to eng. except ‘thatske may: Signal emepey, ‘indicating. that its caller 
tried to remove an element from an any sain? Hadecinics de rarest a text to see if a 
queue has no members) 


4.1.2. Restrictions 


- In order to. demonstrate further fiat ae will add some new operations to the queue - 
cluster. One nice operation to have ts copy. We would like copy to call (Scopy on each element 
of the queue. Of course, this means that we an only copy quende) if ¢ has a copy operation 
(which it need not have). For this reason restrictions ; were added | to ‘GLU. restriction defines 
a set of types possessing certain operations with partic. lar functionalities. Restrictions are used 
to limit the legal actual ‘type Parameters, and they in inaure e that each h, actual ‘Pe, parameter has 

the specified operations. ‘Let us fook at quewsScopy for an ex 


veers SHE: 


copy = ‘proc (q: cvt) returns (cvt); 
_ Where t has copy: prectype(t) returns(t) sn 


return eee 
. end copy; 


The call. of arraylz)$copy Campi in repScopy) results in cats of: tScopy, since array(t}Scopy 
_ requires a copy operation of ¢, we must require that operation of our caller. Restrictions 

_ complicate type checking, but are necessary. The where chese c can also require a ang to 
have several operations, and can put restrictions on, any : nt, ARPS Parameters. The 
| heywords procty pe: etree and: alee ace om ‘. > decane proteture aerator; ‘and: selector 


a 


1. A type specification is the syntactic saad of a an 
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types. “(The keywords proc, iter, and selector are not used for this ‘aces because syntactic 

eo ambiguities result). 
ee The above example: puts 2 restriction on a-single queut eperation: ‘If t'does not have a 
oR copy operation: then: aitthe-otter eperations:of quendttl cain Be-tived - ft ee pba Top. In 
PIE “rer " am pte, ie 


. some cases: it. a er a remelétion o8 alt the op 
4. define a type generator sortedibag: wots runt bi si ag of any 
ordered type: In: ores heen ee less than (ie) 
© cand an. equal dequad eperanten ct 0 vetettn tad re a. : 
- Sorted, bag: = cluster ft typed is 25 
; where thas Beye proctypett) returmatbeeD end. 


end sorted _bag; 


We can still. put further restrictions on the type parameter within individual operations if 


.... Reeded. Thus, a copy operation for the sorted ‘bag ‘hints would" reuive f to have a: copy 
| * ation. : ae : poi th: ; Sai helio ote es eee ee 


- a3. 3. Parameters to,  Procederes and Hertors 


| Just as clusters can be parameterize, 20 'can procedures and iterators. Consider a 
bubble sort routine ‘that takes an array of any appropri type and sort tt The same 


reasoning that lead to cluster pararneters Is effective here. Fino ithe pemchory hander for the - 


sort routine: 


pe 


1 We-wotsld rely Wie’ Wty that 2 an apd order the ob jaca “t fype 4, but alll we can 


_. Fequire.in. a restriction te the-estract functionality: Nasurblty, they faut thet @ drders the ob jects 


would be included in the specifications of: the sorted bag abstraction, but we do not expect a 
~ compiler to Ser een re ee ee ee ee fen 


a sort = proc It: typed (a: aD, 
“ ‘he asa pt rt ot 
“at = artagkthy 


end sort 


Operations of a type. may be para we 


following general form for operation species PRYOR, og 
| (ype_nand parameters to sypetopredo 


4.1.4. Other Kinds of Parameters 


. In CLU, most compile-time constants are: allowed: “08 ‘parameters. ‘This ‘includes 
integers, characters, strings, reals, booledmnd; sent willie. (Diet wit do side Very useful (there ts 
_ only one value of type: pully: so mull is: useless asa: parameter’type). “Every distinct set of 

"parameters to a parameterized abstraction renitl iW @naAkt ebitraction: “This means that 
queuelint] is different from queue badd), -ete:: ‘Abo, ¥: weave: rivedl: th é definition ; 

foo » clyster-{x,. yr dat] .. 5: * 

then Sool, 2) is different from fok2,2). In like fashion, ait ferent sets of eitaimeters: to 
Procedures and iterators produce different procedures: an; iterators. ea 
‘ There is a -goah-that: type: checking ::be «possible: at compile-time; which | requires 

instantiation to be possible. at compile-time. Tterefew, parameters: may net be computed at 
“run-time. However, it; tuens..owt thet, ¢van:if- all: patamdirs'are ‘comptietirne knowable, 
_ instantiation is not always. possible at-compilestine. «Tes -deeieutty: ‘will be ‘@iscunsed ‘tn’ the 
~ section. on trplemenintien. Suticnerdonn Sages apremiee rene eeeires en 


4. 2. Parameters for ASBAL 


ASBAL ean borrow all of CLU’s pattainveter mechanism with no signi icant changes. 
However, even though that'itiéchanism works Leela iat ‘convenient for what will be the 
most widespread use Of parameters in ASBAL:* Gites.” asf 
size parameters tobe computed at run—tinte. hil extensic Sica be made ‘without too much 


trouble; but it is ‘not sufficient. Using CLUS mechani for’ sizes will: atl ‘be inconvenient 


because every size must be specified explicttly, and each set of size pararneters will resukt in a 
distinct type. This results in a distinet set of cluster qpgratio ons Hor each size (although most of 
the physical code for the operations can be shared ameng ail instiniees-uf the type generator). 
_ The major difficulty is that binary (and higher order) operations on objects.of different sizes — 


Bes 


become hard to express, because a cluster may convert only objects of its own specific type to 


and from the represtntation. ‘Therefore, there ts no Way to access the representations of ob jects 
of different sizes simuttaneousty, because ab jects ow different sizes are of different. types. 


With the proliferation of paratneters, eipreaiions become quite complicated. Consider 
strings as an example. We could not write 
‘ S:= silt; 
_. (The W is a sugar for concat,) We would he fanaa: to ony 

Sm string) l0Ocopylatringl 10GiScanentifGie; 40; 
ee aan iain 


Sse Pr et ee ens eee 


Si $f ateingSsubstrtt, Apt string Sreatta, My. 

Of course it is possible to extend the notation for ni ape og 200,50)), but the 

_dnformation still, obscures: the computation, er ae : 
| Having each set-of size. parameters define-s differentitppe (or procedure, etc) separates 
_ types too finely... First.of all, it: conflicts with abeteaction: Thi‘obgeds.6f maiy types come ina 
_ Variety of sizes, inomany cases dof inibe.Verlobles have, fined sities Wecawse they correspond to 
+ storage allocated. in. the stack) — objects are comceptantly of ultialindied itte. For example, there 
are strings of any langth-goeater than or equat-to sere, ine te nue part’OF the conveptsal type 
0 objects, but sian: information snact. somehow ‘be proveded Tee aiciating’ Morige for variables. 
If we require every. abstraction to be bounded, we'are putting an artificial restriction on the 


- abstractions just to make the implementation work out. One way t0 resolve this conf ic ts to 


“consider ob jects to be unbounded, and _Yarinbles, $0 -be. inaperfect snodiels of the. objects they 
contain. This leads to attributing size boynds eoty.ta. patighles. The effects that variables 
| str tt ot ene ara Pew ee en ae 

In sum, size will be deciared only for variables, We find that mon. 
t to state the size information is a5 part.of the type specifications (typespecs) for 


task is to design convenient syntactic forms for expressing size information where it is 
appropriate, and to allow such information to he omitted where it ty. not necessary. The exact 
_ technique is to. introduce a new class of parameters to. types size parameters. These parameters 
“are distinguished f rom CLU-style parameters (which, we call regular, parameters) by being. listed 
after a ‘ in the parameter list. Size parameters. are. wsed_only with types; routines take only 
regular parameters. Also, size parameters. are always. integers, no other. types seem useful 
enough to justify the additional mechanism their Corps ra 1 would requize, ey 
_. Two examples of size parameters have. already. been. used. in. ‘previous chapters. Array 
takes two size parameters, indicating the minimum Jower bound and maximum “pper bound of 
ob jects storable in an array variable; string takes one size. parameter, indicating the maximum 
length ob ject a string variable can hold. Arrays and strings are the only basic types of varying 
size; all other types of varying size incorporate | them in their representation, athough. possibly 
through many levels of data abstraction.) The imy nentations of both. arrays and. strings 
insure that ‘objects too large for a variable of . thet. nee to hold are. not. astigned to. the 
variable: “Attempts to. make. such Allegal assignments cause . an. exception, Satlurd “variable 
overflow") to be signalled. Furthermore, the: iroplementation. Of arrays insures that the ob jects 
in array variables are not grown beyond the limits of their Containing variables; if such an 
attempt is made, the variable overflow. exception is signalled. To make such exceptions 
avoidable, we will provide a mechanism for querying the size parameters of a variable. This 
mechanism can be used. to check sizes before assignments or id gemstone 


4.3. The ‘Size Parameter Mechanlém 


Having introduced some of the basic concepts and features of size parameters, we now 
go into detail about their use. This is more easily done by going through the syntactic forms 
_used for. specifying size in typespecs, and the restrictions eo on which forms may be used 
with typespecs in dif ferent positions. 


1. That arrays and strings are the only 5 sources of ob jects of different sizes is snhee to the fact 
that all mutation is accomplished via records and arrays. _ 

2. Of course, one can just attempt the operation and then, handie the except, but it. is often 
better style to prevent the exception’ s occurrence. 


So imewnd, Set tt chet tsenitly te: 


(ius ae ae girl 
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4.3.1. Size Specifiers 


A size specifier (stamapec) Wir apne Car Spcing|« e parce, anes. 


. are three forms of stretpiucs. Firat we have the. sli se fh 
sfoxan toteger. ‘me it he rot fstab compen 


se) gic Secretar ge) mie 


; Tie met Po p15, cid ane!” ‘Amar fs used as a 
sono inns ht el i ‘or that the site 


Rk 


agiendes ans 


“The other: Yon tit dlatipes ini. sti Sta aaa’ ‘Phase sisespacs are called 


Psteespect The Patnenper foerh ts oyntvatent 15%’, except that 0 # ‘-atomapec pero the size of 
; "Fer exemple, a pebsédure p ‘may tbe written to take one 
argument, an‘arrly. Tobe flenible, p wil accept an array of my siee, bbe kt must know the 
size so'as-fot to caniee an overfiew in growing the nreny. ‘Pe anda toe $: nigh leek ike | 7 
: #5 ewe Sea ign To TORGON * oe 


| ie x > athigh then . 


end p; 


The expranton-sthigh orator tothe sd sparrow cual argument to 2 
run-time. (The result of a?high is not necessarily the seme.as aplingipbighta): ge first is 
te se of the variable and the snd te cant high bound ft array bet In the 
variable.) ’ vue io 4 Rs pon ae Tet SL 


AL This notation was suiggesed by the use of 7 la Aiphard (Wulf. agen 


4.3.2. The Kinds of Typespecs 


There are three forms of typespecs in ASBAL. The. first form is called the variable 

types pec (v-typespec) because it is used mainly in variable deciarations. All the sizespecs ofa 

v-typespectnust: be’ exact sizespecs, so that the ‘actual space “Tequired for a variable can: be 

~ computed and allocated. We will detait all places where each form of _typespec is used below. 
_ Here are examples of v-typespecs: _ | . ‘ 


string(;15) 
- Stringlu(x)+v(x)] 
- areayt?ieg; 1,100) 
arraylint; 1, 10s j+5) 
arraylint; f(x), 3] 
arraylint; footx, y), barly, +2) | 


‘The second form of typeapec allows exact or e-sizespecs to be used, and is called a 
‘virtypes pec (for: variable or ¢ typeiped for short. It is used where any size is allowed or size is 
irrelevant, but where’ ‘quetying is ‘not allowed. ‘Vetypeapecs area subset of ve-typespecs; here 


aie: some ve-typespecs that are not Vopeess 
string ;+) 
arraylint; ¢, 10) 
arraylint; ¢, v(x)] 
__ arcaylint; 1, «] 
 arraylint; u(x), ] 
' arraylint; s, +) 

We allow an abbreviation for typespecs all of whose sizespecs are ‘s’: the size 
parameter part of the’ parameter list may be omitted, inchiding the *'. Furthermore, if such 
"omission results in 11’, the brackets can be droped at as well. Hence 

r] 


_ arraytint; s, ¢) and oe 4 
become . ee . ye 
‘arraylint] and string 
respectively. 
The third form of typeapec i the most yeneat any ofthe thre sizespecs may be used 
in it. ‘This form ts called the vs?-typespec (for varlable, #, or 2d. tppeapec). Ve-typespecs are a 
subset of ee (and. hence v-typespecs are also a subest of ¥e?-typespecs); here are 


Some vs?-typespecs that-aremot: eee 


_ .stringt;ten] | 


arraylint; 1, thigh] 
- arrayLint; ?low, +] 


s “arraylint; ?oW; aig) 


‘Phere are many more: e combinations +f eae in. vad-ty 


8.3. Mow Type Specifications are: Eised | 


Now we discuss: which form of typespec is weed: incdach epee poaihion ‘and the 
“meaning attached. to: it-in-that- position. ‘We: wilt: seal  Cifferent. groups::of 
syntactic positions. : 


4.3.3.1. td esas to Rouwsines 


The typespecs: foe arguments to _ pen ea amar an 
“objects. of. any: size conveniently. If. & size.parameter.,.of:: dg gpecified: exactly 
hand:in:this ease only-a-compile-time eat a match 
-thatof: the actual argument. exactly. -In: ‘these cate: eof. bee acid  Saiepaneseh aise: parameters 
acceptable. ‘The use of: a 2uelmespec allows that size parnsiiter: it Dequer 

p= proc (vara, bi: seraylint; 1; high . 


 et-us consider:an 


vend pi 


“fn thie case, both @ and: b must be ara ot ar aa 

bounds are-not restricted, and need. Hot.be the same, , Ph sneer wenden tenn’ 
via the expressions OPhigh: andi behigh’ As another: ela = 

the following: Programpathich adds the elements. of: one aap 101 2 e he . wana . 


7 5 However, . side-effect ie peat Barnaaregiig te vemutings and ting: only 
-built=ip lic in be meanas 
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p= Prospect 2 nalnovertio 
at » areayft; a, ‘thighk 
if falthigh:~ sa cak < atSsizela2) 
then: signal | pverflow; 
end. Af; 
for const x t: in athelements(a2) éo 
atSaddh(al, x) 
end for,” 
end p, 


The test in the if statement is: “Does al have enough room for a copy of each element of a2?" 
The elements iterator ‘for r arrays reduces each element in the array from, the lowest to the” 
highest. 


4.3. 5.88, Return. Variables . 


be Arguments, are ities ‘Most obvious —. TON ._ motivated. use for size parameters 
, uments, allow. seaigracummes ks handle ob jects: of any size 
| conveniently. However, there are ‘also some .situatiqns, where. flexibility: in the: size of ob jects 
returned by. a procedure is. helpful. For. this season. we.allow-the size parameters of return 
“variables to be determined dynamically; specifically, these ae parameters may be computed 
from the arguments fo, the procedure be ' a. For-comprehensibitity of ASBAL programs, 
we require that any size. computation fecaoeeen: variables: not. mutate arguments: ‘ef the 
procedure being called, ..This Is dane, by. Porsnining uty comet ceos ot the-argoments"in these 


. _ because size parameters. in ar 


size expressions. 

| Consider a procedung a appensis the goatenia 0.90 arrays together toiform a new 
array. If it is known that the new arzay. wilt never be enlarged, it is‘reasonable to create t 
“smallest possible, array. that, wil, contain, the. daglens rewl, a9:arto avoid any: waned ‘storage. 
Here. is the skeleton of such a. procedure: .: 


q = proc (const al, a2: aint) returns ‘(as sents nine eDonmetsD0, 
aint = arraylintl; 


end q: 


Determining the size of return variables on the fly has some complications, however. 


“B2 


Recall that return vasiabies are really specifications for-variabies passed dv’by the caller. If the 
variable passed in isa peruposary, than alee, is. sniquntarinine deren presented 
in: Chapter 2.aliow. for determination ‘of sire temporir i - CGR 
invocation “creating” the -temporaries. -In fast, that scat: designed with flexible 
return variables in mind. On the other hand, if the variable pao, inas: the: return variable‘ts 
‘fot a temporary ‘we may‘have a conflict of ze: per Often at ‘run-time, to 
compare the size of the variable being passed in with the size ae — r _in the-procedure header. 
At this juncture we have an option: we may require that. the stnesivietch exactly, or just 
that the variable passed in is at feast as big as the one.we woul get from the return ‘variable 
‘specification. We have. chosen to be flexible and ‘allow. any variable of sufficient. size. We 
delay discussion of the basis for this decision. until the-entire: ee mechanism has 
been presented. 
‘Two questions remain: what do we. do.if the .size ofa: etum:-: wanatite Tails the 
run-time check outlined.abeve? Our solution to:this problem. tsita: have the. invocation: being 
‘attempted signat fatlureCeantable.overflow"). “The othet questian:is: what do we: de if a return 
variable size computation signals? mip Ae ald iution simiias ‘to theone above. 
2 signal ‘fatturdsixe enpeession signalted). ak oe 
, “Because of the com-time checks oftin require, flexibe rewrn variables may be 
expensive. However, wesbelteve that the ‘cormmion ‘uses “of ‘flexible return. variables will be 
‘handled at-compile-time: ‘The! reaven sly 'contiptie-thene ‘Ghdiks will often saffice is that mast 
types staking size: parameters have: sizes whith: — Fetal wariible of wach - type were 
. constructed using tive: mind: avountsnemmbry; i Soiiltnot Ai geenan Hi jereatter. Therefore, we 
believe it will be more common for the uner to specify the size of: the variable to be returned bby 
| passing an argument. for-sperhaps a spararedel) to the proodiute, rather ‘than having the 
procedure compute..the .sige- itself: We ‘believe. that tit. sipetithens ‘3 samedi Ld ) convey, the size 
information maybe comparatile at. cotpiie-time even ios ey ‘are -tymbdlic s, it m 
possible to perform the checks.even if the-size. isk: puidmiater ‘or 
making. the call. - Hereds:anexample : ; 
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p = proc (const n: int, ..) 3. 


| ‘varx: fool ;n); 
esgic ea 
end p; 


q= Proc (const i: int, ..) returns (a: fool;i)); 
“end Gi 


We grant that it ‘May not be at tall easy to dagn a compiler “smast” enough, to perfarm, this sort 
of eat - we are merely pointing out that the optimization may be possible in many 


‘a ses. 
43.33. Declarations 


_ There are two sorts of declarations: those with initialization and those without. A 

_ declaration without initialization must: use'a v-typespec 80: that storage can be allocated for the 

- Variable being declared. Any laa sian wo ‘an integer is allowed for computing the 
| Size parameters. 

. Declarations with initialization are more complicated, because we have the opportunity 
to reduce storage requiremerits: ‘we can permit the ‘variable to be the exact size returned by the 
procedure being inveked to initialize the ‘variable. ‘Thus we allow s- and P-sizespecs in the 
typespecs for declarations with’ initialization. - Any parameter specif ied by as- or ?-sizespec 
_ takes. the value computed by the invocation for its return variable; any exact sizespecs in the 
declaration with initialization are kept as'ts. Therefore, the normal check necessary for flexible 
return variables in assignment may ‘have to be performed in dectarations with initialization as 
well; the check can be omitted ‘if afl sizespecs are *- or Pakiegpecs Constant definitions follow 
the same scheme as declarations with initialization. 

. Here are some examples of dectarations and constant definitions: 


var n: int 1 480, 

var a: arcaylint;1,-n); 

vat b: arenghént) s-sernnylintISfii (0,1, 500, 
var c: arcaylint; 1, Mhigh] = toot); 
const d: arraylént) <b; 

const e: arcaylint;1,300) =c, 


The jem and ‘high beunds af a. seit tre 1 and 900; teaee of 4, 1 0d 50. ‘eesdow ‘pound of the 
array returned by foo must be one, Dut the high bound may Se anything, and can be queried by 


oyrctay & cuee 
writing cPhigh. The bounds of d will be 1 and $0, jet te The definition of ¢ will fail 
unless c has at most 100 elements. . | t oo 
4834. - Representation Types | ba - | 


The typespec iia tha adesciaibanias as ep ead aha daaiwak Se v-typespec 50 
vartables of the type being defined can ‘be alleceted. ‘Clearly aii size pasarnaters jn the rep 
typespec must ibe coentle eo soeeees = Oe aes ‘Seveeie, arbitrary 
expressions : are allowed te nor 


of the abstract Pe. ™ <a mi n ao —— free, 


ngraitied oo. a ‘toh pie orietialien is abe j ‘ Pee ae 
signatied to the creator of the varig le Ce ee 
| The header fora clastes with sizesg rameters takes: 


| dg = elyster ( regular jonnevater dis 
The id, for t > O are the names of the size. ERMOEL 
the rep type and other equates; unlike seguiar 4 rR : 280 
operations as specific values. Furthermor Aye. aed eppreen ening Sheee mapecs:ave not 
available to the operations. ‘This is because, dee. eatues .ssentinied. vith the .ebstract size 
" parameter na names are netper Custer 4 eanth on fel ieaneralen are sem eteronhe | 
sense to use those names in chister-operations.... gear aah ve 
Let us introduce an exam ery hraughaut.4 wedimanion of ae parameters 
and rep types. Assume for the moment that ASBAL dees net eve strings, and we need to 
implement them using arrays of characters. Here ts a skeleten of gart of the string cluster: 


“string = clustert; en) is ... 
rep = arraylchar; 1, leak, 
_  Size.= proc (const s: eve) returns {n: int); 


fe» rep@stae(s);: 
endsizg, — he sabe? 


Me end string: - 
Notice that the size eee returns the size of fhe shies ‘not. the size of. the. yacatles. 
Now we come . to the question of, what ¢-. and . Pralzespecs. mean, when written ‘in 


p.what. does sAyingis] or stringh?ll meanz... They 
merely mean that those abstract size parameters. are, not hejog specified, and.in the case of 
?-sizespecs, that thoteabgtract see, pargragirs.mumy..be, queried, eg MI x were.decknred as 
stringl?i}. In every case where the size of the rep must be known, all abstract size parameters 
_ will be available, so the rep size parameters cansbe-compeatid and Spite aMocated: 

The only potential confusion left is the meaning of the typespecs rep and evt. Rep 


sSeet a ee 


i: the tep typeepec obtained from 
giving the abstract type: ‘those size parameters” "hs in ‘CLU, ovt rn ps a shorthand for the 
‘abstract or rep “typespec at the “interface of a routine, with a conversion ‘applied at the 
ca appropriate time: dowh for ‘incoming ‘ob ects, , and ep for outgoing o ones. Therefore, evt takes 
the same size Parameters as the abstract and. rep typespecs do. ‘Notice that neither rep ‘nor evt 
requires | statement of regular type parameters; ‘the regular type parameters are implick in the 
' instantiation of the cluster. The conversions uP and. town have the same. semantics and 
implementation as in CLU - they cause little or. ng. naactipe. action, but are ues merely to 
change the compiler's “point of view" on the type of an ob ject. 7 

To illustrate the use of cvt, consider the procedure bela pat of « our example string 
cluster: ; ee tees ee 


concat = proc par sl, 52: evt) returns (33: SE es, 


ineicecs for the abstract type. For examp 


takes the size parameters of the abstract type: the me 


end concat; 


Notice that the arguments (s/ and 32) have been down'ed before the computation of the size of 
53. If we had occasion to create a temporary variable of type rep. in the string cluster, we 
might write 


var x: rep[;n) wie 


which would be equivatent we 

var Xx: arraytchar; 1, nl; 
except that the latter cannot be up’ed. It cannes. be wid t et aise loin : $0. ‘involves inversion 
of arbitrary functions in the. general case; this is. so. becrusesbamgee ne restrictions on the way 
in which the rep type depends on the abstract type's size peramesiti Ho r any atrayichar] 


can a eho s toa rw variable ini ie Hans seen ene meaneitons: penete te °F a 


ce: Sh Serer 


#54} 


“Teo he ig va lh lt prion weed te 


ote Ae vert eg 


“operations pitocedure body the Header enediattdanineles | 
agp: “eointdt « proe € aii 1, evi feng oS ae PLS ISRERS URE te 


"The: ee of sland 32 odutd embeds obtained By sirldaigek an 5 
ae a eats w oth Stow age 
4335. Othe. Positions to. Reutine Headers. TA Seat a 
eae ae 2 OSAE AR TROD ce US Reg vieio eed 
There area few other positions in routine hepders that re uire types 
“are the types. of parameters to Toutines, s however, sonar ane 
bool, and type, which have no size parameters, £0 


a eae aA} og ; 
; Sb et vievied by an erator = a PT it s cit so and « eoforeed, or any 

e irgument hold for the types 

208 of ob jects signa by ri Toutines, and the of-ype n teleaoe ae. He, are some examples 


. of claules from routine headers: | 
; ar week 


_. Signals (foolarraylint:sD, Dp vaaring) io 
i yet ei ou 


.. Of string. ... so ge are loeage 
. bletch = = proclx: intl ... Ss 
palpi = 4ter€26Haes « 
edgar = setectent fing: bool) ... 
& ¥ rity ab epg # 
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43 3. 6. “Tyee of Routines 
A situation slightly different from routine headers Is the ‘ of .typeapess for 
the arguments, ‘etc, in ‘the’ typespecs of routines (ie, proctype’s, fieety pis snd 1 seltype’. The 
-typespecs for routine types should allow full type checking, a0 typespecs for arguments, returns, | 
yields, etc, must all be given. The argument typespecs are ve-typaspecs, there ‘bping no use for 
e-sizespecs in that position. (A routine accepts either a particular size, or any size.) Likewise, 


et 


_ return variablesiare ‘given: ve-typespecs, bet complied’ vines: are’ given 43 #4, not expressions: 


only compilestime expressions are allowed: so the F iiuclt type’ checking can be done at 

_ compile-time as: possible. Thus the type‘o?' ible 8c0 : 

_ peoctype (const: oer ewe eS 

which. is short:for ake ae 
» -proctype (const stringl;s), tage eddixitaceatee'®: | 

Yields signals, and of- typespecs are all handled just tke return variable  typespecs ‘That takes” 


Pr ean 


typespecs: 
proctype(var arraylbookss), const string[;10)) 
itertype(const arraylint)) yields (otrlog( 350) ae 
_ salty pet of sariog: staaerill Bt 


4.3.3.7, Actual Type Parameters m eee ae = 


Now we come to the arching of Fppespecs. for actual ul type. parameters of abstractions, 
eg., the ¢ in arrayit). These are atwaye, v-typespecs (with one e exception), ,,90 that variables of 
the type can be ‘declared. The exception is the pe parameter to ptr. The type ptr has to do 
with pointers, ‘Which ate discussed | in the mext hapter , however, tet us explain here how ptr is 
different. The type generator ptr is used for opel polar, and it takes as a parameter. the : 
* type of ob ject pointed to Since the size of potnver is dent of the size of the object 
pointed to, #- and ?-sizespecs are allowed in typeapecs “ parameters to pir. After reading 
Chapter 5 it should be clear why this will work, 


Here are some examples of typespecs used as parameters: 


_.,on Strings: 


arraylarraylint;106)). 
recordta, b: stringl,20)) 


ptela, arraylinttftigh} 
ptela, recerdla, b::string)] 


‘Pease’ ignore the ‘tie parame ¢ to o perf for now the second parame is the one discussed 
-_ above. 


dh oy' 


4:3.3:8... Operation Namen 


ae There. is one las poskion where tgpepecs.aet mented the names of cuter 
‘i ‘Operations. In this Pasition.. all kinds. of typespers ore alley, 0 

completely irrelevant. However, it. is. common:.te.write the shot foes af witepent: ane-chuster 
operations, omitting the size pasameter., part... completely... Elle: given programs a nicer 
appearance, but is’ not essential. it ids eeu oa teeta ene dae toa 
_va#?-typespec; for example, #4 for, asrayicl. ee operation 


; stringl;20)Sconcat , 
“'string(:e]$concat 
string[;?len}$concat 
stringSconcat 
(This operation also has an infix form: ~¥) In ch ep aos ee for ore 


Seeraios names. 
44. An Example cee sais . 


The header for the sequence chaster is . 
seq = cluster te type; al Is null, jaddh, addi, conc, remh, rem rien, ans 
| “firs, ta, Fetch, ehemants, copy e wal, eget; 
‘where t-has copy: proctype (const 0) returwe ( amd a dai 
Sequences have many of the same operations 1 s arrays, cheap that seguenoes are not mutable 
" (their state cannot be changéd). ‘Wis casbeat to oxpaia how one work = preventing the 
operations a few at a time. ‘But first, the representation: 


rep = arraylt; 1, n); 


This, sequences will be modelied by arrays. This, is. erent becayse they are similar in 
many respects. ; : 2 uy 


— null» proc () returns ts cvt[;0)); 
S := rep$create (1); 
end null; 


The array create operation returns an empty array; its argument et the low bound of the 
array object returned, Notice that it ts probasty:nat. weef ut write 
var x: Seqlt) := seqit}$nulk); 
because all x could ever hold is the-empty sequence. a sequences are too big to fit in x.) 
addh = = proc (const s: cvt, e: 0 returns (new: ert aephaontd . 
new := repScreate-(1); 
for const x: ¢ in repSelements (s) do 
repSaddh (new, x); 
end for; 


repSaddh (new, e); 
end addh; - 


The addh operation returns a new sequence with one more element at the end than the one 
passed in, therefore the size of the returned object is one bigger than the actual size of the 
argument sequence. (Notice that this is not necessarily, the same, as, ‘wa + I') The elements 
operation ‘is an iterator ‘that generates the elements of an stray: ia order’ from the first to the 
last. The addi and concat operations are simifar to addh. 


add! = proc (const s: cvt, e: 0 returns (new: erthzepSotedae ID; 
new := repScreate (1); i 
rep$addh (new, e); 
for const x: t in repSelements (s) do 

_tepSaddh. (new, x); 
end for; 
end addi; 


concat = patent f, x 70 rr nr orphan 
new vw repScreate (D; ss 
“For const x: Phir repSele 
repSaddh (new, x); 
end for; | shay, Gal eee le Tre 
for const x: t in repSelements (s).do. inhi gatp, O25 
reps earn (new, x); 
errd for; -* 
end concat; 


‘ Now we present the operons ‘that prodece-sherter munenng te tele inputs: remh, reml, 


and (trim. 


 remh = proc seanst.s: cv: cm nti sign (empty); 
om dint re repSsize(s);, 


ord epaeise? Seeneed | ay 


TY 2 a 


(ide 


ifmeb 
then signat empty; bohm ie Fx, 
else . Botte : ~ ie ye PES 36% 
_ few :~ repScreate (1); 
_ index: Int:= 1; : 
white index <n do 
‘repSaddh (new, adlindex)); 
end remh;: , “ 


rem| = = proc (const s: évt) returns (new revit nas 1» D lgnal mg 
4, Ridnt = nephsinetsd; (arepSoleeto (emgt 
ifn<1 eee 

then signal. empty; 

else pies ; 
new := repicreate (D; 

. index: int := 2; 

_ while index <= n-do : ee ae 

 FepSaddh ceeds, eS 
end while, — 
end if; | 

end remi;, 


(Max is used to prrena ‘“-I' from. messing. things: ¥P ston on eptT mente is passed to 
retained. Trim returns whatever = pron of the sien rates wt the. sae meme the. 
bounds. 


| 


trim = proc (s: evt, low: high: ind) returns (new: crt thigh tows: 
Start: int := max’(1, Jow); 
n: int := rep$size (3); 
end: int := min (n, high); 
new j=. sepScreate-(1); - tetas Sep 
for. const int in int$from_to_by tania ». rue 
fépSidah thew, Tp); - 
‘end for; 
end trim; — 


The from_to_by iterator ‘Renerates the integers from its first argument, threugh to its second 
argument incrementing by the third argument; it is like an Algol for loop. 
Here are the selection operations: first; last, fetch, and elements. 


first = selector (), of t: from seacanteneol pee ee 
if repSsize(s)=0 =o ye: ir da TES 
‘thei ‘stynakehipty; -~ | 
else select s{1); ges PE eae BS 
end if; 
end first; 


* Jast = selector () of: t-feom-s: erieipmaiotengey 
n: int := ike aera (s); 
ifns= 
ae signal empty; 
else select s{nJ; 
end if; 
end fast; 


. fetch = = proc (i: int) of t from s: cvt signals (range); 
if (i <1) 1 i > rep$sizels)) 
_ then signal range; 
else select sf i); 
end if; 
end i ecie 


| The vertical bar is. sugar for the er. operation in this coe assolter’. 


__., elements. = iter. (copst sant: aren aa © 
for const e:t in repSelements(s) de. . 
phe (O; 
J end. for, 
‘end elements; — 


Notice the use of the array iterator elements to implement our own iterator. It would be nice to 
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be able to assign sequences, so we define a copy operation. 


copy.» proc logust.s: ext). setuens. (new: wetlenpSotealsley 
new := §; ; igtigigt ob Ps gs ae 
end copy; ade anctodpawetccse: Hes 
The copy operation will often be this simple, but there are‘a: a feoype: otiere more must be 
‘done. We also provide amother: very wiefuk operation, equal. We nae et equal needs an 
' extra restriction ont. = | wb S9 


equal * proc (const r, s: cvt) returns (eq: beol) 


where t has equal: prectypetconst ¢ Df WEP 
eq vo'(r a sh: 
return; 


end equal; 


_ Notice that we use the verdactping peep qo aration wi cle th peal operation of ¢ to 
compare the arrays: element by element. Now we write te neh ppation 
length = proce (const's: cvt) returns fk int); 


| = repSsizels); 
end length; 


- It will be helpful to see © some: exenape used of ence oe Ene 
First we define a few types: 
si100 = seqlint;. 100); 


Si_ = seqlint; ¢); 
silen = seqlint; ?fen); 


Now some declarations: 
az silO0, 
b: si100 := s1100$nutt 0; 
c: Si_ := b; 
‘d: siten := ¢; 
if d?ten = 0 then... 


First, ¢ is uninitialized, and has room fer sequences up to 100 imegers long. The next variable, 
b, is the same size, but hashean assigned the nuit sequence: ‘SiketP the size of ¢ was. determined 
dynamically, it can hold only the null sequence! *Fivte nee ery-dsef tit -— ft Miastrates why size 
ai it Eek i ; 
should normally be specified in declarations) ‘The same is troe KAibowever its sine can be 
queried by ee atten as shown in the if statement. Here ares wren 


aca at d; 
b= si _Saddh (a, 5) 
if siSlast (b) = 5-then .. 
var j: int := 0; 
for const i: int in si, “Selements(b) do 
j= jek 


end for; 


Notice that the first line calls the si008concat operation. 

' We have defined a complete type generator for sequences. This example is atypical in 
that it has no mutating operations. We chise this over a ‘fratable. type. because it demonstrates 
more of the parameter mechanism, since it- returns more ae and tends to allocate the 
minimum storage possible. (Allocating the sminirwum’ for r mista | types is not always desirable, 
since they may need ta grow later. Furthermore, even if the objects’ are immutable, larger ones 
may be ere toa variable tater. of course the style of use is up to the programmer. 


4B. Implementation 


Here 1 we discuss how to implement ASBAL's parameter mechanism. We first explore 
techniques for the regular parameters; these methods are borrowed. _Girectly from CLU. We 
then consider the additions necrstary for size parameters. 


4.5.1. Regular eee 


The most straightforward idea is to pass parameters.as extra arguments in calls. This 
works fairly well, except when: procedures and iterators are passed: around: as‘ob jects. When an 
instance of a parameterized procedure or iterator is passed. around, its parameters must be . 
stored in the ob ject, since they are not available. when it is called. Likewise, an opetation of a 
pa rameterized type must carry the puaneens of the type around. 

This difficulty suggests what we call the macro implementation of paramere This 
implementation actually substitutes the actual parameters: ‘in and comes up with “separate 
procedures. (iterators, selectors, clusters) for each distinct set of, parameters. This would seem to 
be inefficient in terms of memory use, but can be good in some situations. Its main advantages 
are simplicity, and the ability to do better optimization of code once the substitutions have been 


te sepa 88 we oe 
pee ee BERL Oe ST SR SI” Sagat. 


made. Of cor, nse ite Som Se ped ‘One can have a smatl 


‘ities sections to ht per process dat in an ° 
‘pure code. 

=. There ts still one problem trowever. ‘Be petite we wine pelghvss wach an 
unbounded number of different parameters at. seats epee 
“that has that property: : : oe . py 


aay = pros type 
end nasty; | 


Ye shoul be ensy 10 ase tht this gumerates & payis) ga Sine eye tyges.an be 
generated at riét-time, some hind of runtime dain sracrore quit le.peintayned for types. 
Maintaining the data strucrave ts rot tow Ward, but Wf i t’hapt tn a Pined-tiee table then it can 
potentially overflow. ‘However, the sort of secursion shown ubeve-deur netappedr tote very 
useful. Thefetore we sveid’ che probhan. oy satey. A one te NODAL. ——— ee 


"There: mp sinter ean ai sag 
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4.5.2. on Size Parameters 


Now we turn to the question of Aenplementing ASBAL's size parameters. First of all, 
they are not true parameters to the type, and. appear only as dummies, or in positions to allow 
allocation of memory for variables. The basic technique for handling size parameters is to 
store the size information in the Variables. This method leads to a nice implementation. of x?¥: 
just, fetching a component at a: fixed: offset from: the beginning of x, very similar to records. 
Because the sizes are stored with, the variables there are no. ‘Problems. of allocating ‘space for 
size parameters dynamically - the. space has already been reserved! in each Variable. (The next 
section. will discuss storage. formats: for variable size Ob jects, in ‘more detail. In the case of 
abstract data types defined: by users, ‘the underlying sizes of arrays and strings must be kept for 
the use of procedures receiving the components as arguments, etc. However, the abstract size 
. parameters must also be kept, for’ querying’ and forthe. size ‘checks required in passing 
_. pre-existing variables as return variables (see the next section and Section 4.3.3.2). 


4.6. Analysis of Costs of Size Parameters 


There are two major costs associated with size parameters: storage overhead and 
processor time, and: both are. somewhat dependent. on the: actual storage. Fepresentation used. 
Therefore, let us consider the storage efficiency of ‘possible representations, and the extra 
processor time required by size parameters. Part: (b) of Figure 4. shows the most general 
storage format, one using pointers. This format is simple to use since items are always at 
compile-time known off sets within substructures, akhough considerable indexing and © 
indirection may be required to access a deeply nested item. More efficient forms such as “ 
linear format of part (c) of the figure are possible in many cases. Such a linear format saves 
memory and cuts access time because the pointers do not have to be stored or followed. 
However, the linear representation is not sufficient for ait cases. It is better to adopt a general 
representation using pointers - we believe that a. single storage format should be used 
throughout the system. Having ure formats in the system would be bad for the following 
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(code generation. -would be rmade more complicated; 
(2) if multiple ‘copies of madutes were made, exch banaing one’ ree format, modularity 
| would be threatened; - aes ‘ 
_ (3) if, on: the ‘other hand, ode cut ante ag rae fort, the. code would: be 
larger, or. interpretive execution ‘would slow processing; ' x 
(4) the entire Fanceapapenccomites ee might be small, 


Thus, the optimization to a \ format more: compact than the: ead format may not be worth the 
‘complications. it introduces. eZ ; 
Given that we will use. the pointer storage‘ format, let us examine the cost of size 
_parameters in detail. :First, let us see how much: storage Overhead: is introduced by having ‘size 
parameters.. The storage overhead for size parameters consists of “one integer per abstract size 
parameter per object of: an abstract: data type," plus one poltiter foreach array or string 
component. - It is hard to assess. fast how. much “impact this overhead Will have, because it 
entirely. depends on. how: often variable size objects are used; ‘and whether the arrays and 
strings in them tend to be large or small. Dope vectérs: hive been accepted In many languages, 
_ and size parameters are. only .8 generalization of: dope vectors. We believe that the storage 
_ overhead for size: parameters is acceptable Besides, this overticid is unavoidable because size 
_ parameters can be determined: at run-time: ‘Therefore, poieakiee that: shvnial overhead ts less 


_ Of a problem than pracessor time. 


In examining processing overhead, we consider the bit-copy operation first. For fixed 

_Size types a bit~copy.can be. accomplished with a block move, provided pointers to components 
are represented as. relative. offsets; and aff components -are- packed ‘together linearly. (Both 

. provisos are possible, and the offsets. can be deterteined at’ cofipite-time) ‘With care, the 
components of an object of a variable size type cah be packéd together in a similar way, 
although the offsets will generatly be computed at run-time, and the order of the parts accessed 
through pointers (ie. offsets) may not always be the same. The time when care must be 
exercised is in the initial construction of the ob ject, ‘because. the: components ‘will: never be 
moved later. The only information that should be stored at a fixed offset in the stack frame 
- for variables of a variable size type is a pointer to the ob ject itself in the dynamic part of the 


_ , decision regarding:. how closely return variables stee) epeniiie 
- pre-existing variables; namely, we decided to'aliow sudan dtaneedatal wied $0 long 
vas each of. its arrays-and. strings ware-at:fetat-as hates ! “herth 


frame, in that way a Sigh: uniform-norage format is achieved. 
Run-time size checks: Aeengeter the rerniieimgvernent, ‘fr Seeatorr 43 we made a 
neaeieney Wiel freatén * ‘the sizes of 
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4,7. ommary 


The flexibility. gained with size. parameters can | "be expensive. - However, size 
parameters. are really jus: a generalization of the bounds . of. arrays,. and many.of the same 
| implementation techniques ‘apply. Notice that if ‘site, ers are. required to match exactly 
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in assignments, we have a scheme very close to those. where site. is part of the type. However, 
we have avoided several diff reac! associated, eh having site ake fart of the type of objects: 


(1) We do not have different operations for ob jects ¢ of different sizes; 

¢2) and thus we have prevented an explosion of parameters to operations. 

(3) We know explicitty which pardshteri im must be compile-time known, and which may be 

‘computed at run-time; 

(4) and because types (as opposed to sizes) must be compile-time known, we avoid having 
run-time type objects (i.e., objects of type type) at run-time, akthough- we. do require 
run-time size information; 

(5) and, again because types are compile-time pacen ween Latta all the difficult type 
checking at. compile-time. 


~ Although it is a mafter of opinion, we feel that separating size information results in a cleaner 
notion of type and helps to separate abstract concerns frat snyplernentation details. Overall, we 
are certain of the usefulness of regular ro and ‘believe that ‘size parameters are also 
helpful in prograraming. 
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5. Areas and Te 


In this chapter we present a mechanism for dyamic storage allocation. It allows 
"programs to buitd leis Lune data structures without A requiring snrbege collection or 
pea Our presentation vii ‘with areas, the ioe that pattort storage allocation. 
‘The discussion ‘Of arens Is followed by a description of otnters, the objects used to name 
ob jects allocated in areas. We then present ‘details off ¢ using areas and pointers; it is here that 
the techniques used to prevent dangling references are developed. a ict 3S 
After presenting the area, and pointer mechamtems, .we ‘disuss. the impact of the 

| mechanisms on aliasing, comment, on the copy pre ie , i. prevent.a variety of methods that 
| might be used to implement areas. Lastly we have | three exas Pi , tp. Wagtrate the use of the 


mechanisms. 


5.1. Areas 


AR area; in-dts. cimplest: implementation: ism: bedi oF omg’: in a stack frame, 
somewhat like an array. The idea is that the ares: parcels out thts tock dynamicaily, on 
request. Areas are based on the collections of Euctid CLampson77), but there are several 
important differences. The. ‘ma jer: difference fe that: w collection -whotated  obyects of a single 
type, whereas. ob jects:ef: different types: cam etext withe semearea: “Thus ari area bounds 
only the total amount of: storage used ‘rather: thay Sounding the rember of setts of ‘each type 
separately, as collections would. This can lead to better storageutfitzation. Tre 

The simplest allocation method is to allocate ob jects linearly from one end of the area 

' to the other. No reclamation is done; because areas are in the stack, the space for an entire area 
ean be reclaimed when the frame it is in is released? When the size of a requested allocation is 
larger than the remaining space, the allocation operation will fail. This allocation technique 
brings out the simitarity between arens and arrays: arrays can grow dynamically using the addh 


1. We will discuss more ‘sophisticated implementation schernes: for areas later’ in this chapter. 
_ However, the general properties of areas will hold true for any. 
2. Again, we will outline implementation schemes that do more eg. reclamation) later. 
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or addt Operations; areas. allocate new components dynamically int like fashion. The similarity _ 
ends there, however, because arrays are homoyenuous aggreghtés'and:ateas are héterogerteous. 
Pointers are used: to:access ob jects atloonied in avens. Following ® pointer is not unlike 


index ing an array, but a pointer’s type includes the area in which the ob ject pointed to resides, 


and the type of the object, for safety. Thus the type generator ptr (for pointer? takes two 
parameters: an area.and’a type; ptrlas) means @. pointer to an object of type ¢ in the area a. 
Mill be « discussed in. more detail 


(The type generator ptr and. the use of areas. Mp 


PPR 


below) The allocation of ob jects in areas is performed, by the operation pica s}Salloc. It takes 


one argument, an ob fect that is copied. to. produce the newly allocated rai The new ob ject is 


. Created using tScopy. The type of: ptrlas]Sailec is. 


practype (const:? cetuens (ptriag)) 


- where @ is an area and s-ds;atype. Allec signals failure\"eren put of memory”) when there is not 
_ enough memory left in. the-grea to allocate;aa: neaancial saeacentil If ais an area, then 


os RAR pp pirlainthn ptelaintiSaliactd);. Bo s 
isa legal declaration , with. initialization. Its effect: is to allocate an. integer in the area a, and set 
the pointer variable p to point to that newly allocated integer. In this case the new integer is 5. 
Corresponding to alloc, there isa selector, deref, uted to access ob ae allocated in 
areas; the type of ptrlesl$deref is: 
seltype © of t.from.ptrla,t) signals (bad pointer): a a 
where @ is an area, and ¢ is type. Devef signats bad_peinter when given a null pointer to 
follow. (Fhe null pointer will be discussed below) An unsugared use of deref is 
| ptrla,int}$deref(p) | ea 
The standard selection sugar aa this to be written as . 
p.deref | a | on f 
However, there is a special sugar. for erg which 4s. more , convenient than either of the 


previous f orms: 


pt 
There is no free Speratlon to release previously. allocated storage. Free would be unsafe, or if 
safe, prohibitively expensive. Having free and requiring. safety would amount to. requiring 
ob jects to be reference counted, and still one could not truly free cyclic structures whhowm first 
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_ breaking the cycles. We feel-that reference counting ia te0 expenaive.to justify requiring it for 

all areas. However, paxtiaiar.areas can:do feference counting swith some: assistance from the 
_ compiler; there would still be no. explicit free-operation, but-setting: a - aes inane might 
_ cause the. ob ject esti eas al oa amie eas 


. 5.2. Pointers 


For each area a and each type ¢ there is a puciie ty pirat The ob jects of that 


pointer type are pointers to objects of type ¢ in.area.s. Thete are five operations of the type 
 ptelath, in addition to aliec.and deref, which were previously intrwdwoed), we have: 


(3) equal: proctype(const ptria,tl, ptelat) retuens {bend =ipetuens true if and ovily if the 
two pointers point to the same ob ject (12,'the aanw tecition:in the:same area); 

(4) copy: preetypelcanst pirla 4) returns (ptrta,s).<‘chpies its argument {the poiriter, not 
the ob ject: pointed te; ptrla,JGequaltp, pteblty Boopyipht wil retarti trite; | 

(5) null: prectype © returns (ptrias}) + cabwnips vendetta At pointer,-a pointer which 
points to no object. (Remember that eee and fei an 
exception.) | 


‘There is a sugar for ptrlag}$null); it is nilptr. Notice that slipt? carries no designation of 
‘pointer type - the correct type can be obtained from content: except in ‘the case of nilptrt, 
which will always si eae anyway. The onty sources of eames are alloc and one 


5.3. Using Pointers and Areas 


Up to this point we. have described some features of areas and pointers, but have 
omitted several crucial points. A goal in the design of the area mechanism is safety. In 
particular, we desire to prevent dangling references ‘wit only ‘compite-time checks. ‘Prevention 
of dangling references depends equally on several different parts of the’ design: it is the. 
_ synthesis of these parts that achieves our goal of safety, and not the individual parts. 

, The technique used to prevent dangling references is basically the following. We use 
the Saya mbps of each afea a object to define a ‘dynamic, » remnant -seope of the area object a at 
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. run-time, Le. we arrange things such: that the: aren ts only nameable: where it will ‘exist when 
the program is run. We also arrange for any object that might contain Aor try to construct) 
references to objects in an area, to have the’ area's. name as part of its ‘ype. This “trick” allows | 
standard type checking: to prevent dangling Feferes Ces at compile-time. . Thus, we use the 
standard ape checking restrictions of the language t to get as.much of, the CORINA: 8 © can. ’ 


5.3.1. Area Creation oe ee cree ee eg 
Area isa type. and areas are objects. of: the type aves: The‘ only operation of the type 
area is areaSnew, which is-used to create new-arens, /-Fhis ‘operation takes iro. afguments: a 
string (describing what sort of area management: schemd is-to be wie! eg. “simple” or: 
“ref _counted”),.and an integer (describing the size of the-area to be created, ¢g., in words, or . 
bytes, or some other standard unit such.as the:size of an fue); ‘Thus the type of areaSnew is 
| proctype(const string, int) returns (ares)-signats (bad _arguments(string)? io 
The exact meaning of ‘both: of the: arguments:is system dependent: the number and kinds of 
area. management ‘schemes, and. their names are determined by the language: implementation; 
the unit storage size is determined :by the-dmplementation, and the: meaning of the size 
argument may depend. on the area-management scheme cheten, ay well. Of course wreataew 
may signal if its arguments are improper (eg., the size is negative). ee ae 

. Although area isa. type, we do not-allow. variables of type area; in fact, only two things 
can be done with areas: they may be created, and: they:may be tited as ‘actual parameters. Area 
variables are a bad idea ‘because area assignment is dangerous - we stoner could result in 

dangling references to the area written over by the sasignment.* 
Since there are no area variables, a special statement is. used ¢ to:create new’ areas, we 
new statement. For example, 

"new a: area = areaSnew ("simple’, 500); 
creates a mew area a, of the “Simple” variety and of size 500 units. ‘The new statement Is — 
intended to parallel constant definitions, and the scope of the area introduced in a new 
statement is the same as the scope an identifier ina constant definition would have in the same 


1. See Section 5.6, which is about implementing areas, for several area ape ial schemes. 
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it ts » det stow Wisi te nites ose, dee es, Having 
Spainersin ree permits dyimmic data structures to be bait and referred to, one of the gosts of 
the area mechanism. However, any type using pointers in its repremenmaien is relying on the 
area which contains the objects pointed to. Let us make enplich the notion of 8: type relying on 
an area: a. type it saig00 depend:on ger seen 10 that even: thight poliibly be sktémed via ob jects: 
;, Of, the type. Thus See ee the 
_, = Second type depends on-aree ben well Doe . 
ae oo We mentioned .our- metieed of Preventing Sangting tferenees sbove, we make types 
“ees bag on.an, aren. werwritiiele euntnide the: tcope'et vive urits “We wake the types uniwritable 
by requiring. any type depending on. ary aren tw: tale Uli atte us 2 pareHveter. ‘Thus, areas are 
net clopat and. dependence qa. ia, a omega ae, Se «type | ‘Hist that 


_ deve 79 (nd raters! . ic ain 
they depend. ‘evi shy WAL ase aa ee Sea 
~ Angee pe an in ann rig te 
ee Sees ay ade: Ws 


pep Spt Weaek: ile. meron ae 
Rode = “nn gdb oo ibe by 
teh bina free; ie a aa 


Notice that the type node is recursive. CLU,@ ea 


but we find them useful, and hence a pane ?* 4 * ? 


wh ote 
oe 


wea TF 
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if their (possibly infinite? specifications: are the sire! A pre 
- temporary data structure might took like this: 


edisre that used a binary tree as a 


foo = proc... 


begin 
const a: area = areaSnew( "simple" ms 
bintree = = binary_treeta;; ‘tes 
. bintreeS.... 


. end, 
sng foo; ; 
| The other thing to notice about. binary.tree is that. it takes ¢ asa = parameter te must do 30. p to: se 

ain its representation. at ae we * 


‘Why are no other uses of areas. other. then, at: a: = ter: weit’ AS was argued 


_before, area variables are dangerous because assignment of areas isan ‘Uncorttroliable source of 
dangling references. Other uses of areas, such. as storing | them in data structures, or passing 
them as argument, tend | to. sens the atic oes, fovueet 30 > that the Soeepte;time checks 


- used as parameters,’ snd ptr takes the a area point ‘hun aba paramener, th these  dynarnic w uses of 
areas would not ‘be ‘helprut: ‘the usefulness or areas depends o om pointer. types, and if in some 
context the type of pointers into’ an area ‘cannot: be exprewed, “nothing . can, be done with the 

area. In sum, there is no way ‘for dangling teferences sto arian from data structures because the 


type of the data structure depending on an area ‘cannot | be expressed anywhere the area does 


not exist. 
5.3.3. Closing the as aia ae 


: AS demonstrated above, dang ing : whem cannot. arise from. data structures. 


. However, ‘there are more possible. sources a Mangling: references: For example, the procedure 
| ptrla,t}$alloc is clearly bound to the area a, and we would not ine eee to be usable 


1 This rule is the. same as, that-used in Algol 66.: see OWipiguataetin fot an algorithm for 
checking type (mode) ceareeee: 


where a does not.exist. One might think, The aren « is naened im writing out ptitaI8altc, 0 
_ there is no danger.” Hesteet, wan isa, open tangs Commien the: aid oor 
‘det inition: : 

foo = = procta: areaKeonst i int) returns tind; 


end foo; * 


The assignment statement below is presumably: legal: es 
p «= foola); 
where a is an area, and the type of p is 
Proctypetconst int) returns (int) — 
_; Lherefore, we.can write. . . 
cae Pp: prctypecont int) returns (int); 


a4 p.:= foola), ee 


Bs ey = Pe Sk ae 7 peer, wear aks: 


The’ code pictured ‘above may foliow a seein foe wo. the baie a; that reference is 


“hidden in ‘the procedure ob ct 
ee Ee: marie ones: ae 


Most routines’ iypés do refer to the areas they use. Fer exe te ena pe ele 
ee _ proctypeloonst 1) retarnetptrtes)) ee ae ae arene a ij 
~ aind'that of ptrlai8deref is SP Be ae age 
seitype() of ¢ from ptrias) signals(bed_pointer) ; 
and both types refer to a. To prevent dangling references of theenrt exhibieed by foo-above, 
we prohibit routines from taking an area.as a parameter —— thet aren a3 part of 
.atheir type. Thus the procemne fo se xitigit’ sé ol siting. mut take an 
obpernmeter tybeablecte acsees R,:thle-guiiasedes tit! sseeghnoues routine thet might access 
day: aren names that-avea.-- 1 By OBE VEE Ee 
. We are not ruling out ahiihing useful by prohibitin ‘ola wae esis ofa - 
_ ToUtine does not refer,.t0,anp wermen then meiabgectes depending an tive ated can be passed 


“with other objects, we woutd like the Epp of routine obec . 
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through the routine’s interface. And if no objects depending on an area are passed through a 
routine’s interface, then there is no point.in the, rautine’s taking: the area es r parameter in the 
first place: if the area is to be used only: oe the: routine. may wpe ree an area for its 


own private use. 


Another loophole is the use of arée’as an y actual patameter in: a position requiring a 
type. For example, if an abstraction has a type parameter t, it may declare variables of type ¢, 
arrays of type array(t], etc. Previous restrictions we have made prohibit the use of areas as 
variables and -their storage in. data: structures. - Therefore; we ‘tmuist ‘nuke ‘tin “wdditional 
restriction that.area.may_.not.be used.as: an actual on amanai 


5B. 5. 4. Summary 


eg we 


ae Here ‘are the restrictions mt we made to prevent dangling references: 


(1) areas, once created, may only be used as actual parameters; | 
.  ifa routine takes an area as a parameter, then that area ‘mast ap appear ‘in the poe of the 
routine. 
(3) area may not be emis an si mene fo apn een ye 
In- addition, pointers may not be used as parameters, thqugt | pointer tgpes, fay, ie Thus 
arraylptrla,t is a legal type, but bart p) where.» is of, type virial Not, (It, ls aot, clear, what 
meaning can be attached to pointers. as parameters anyway). age | 
- With the restrictions stated above there. js no. possible, way of fesacinag a dangling 


reference in ASBAL. However, it Is possible to create a. dangling reference. that can never _ 
f ollowed. Consider this f ragment of code: 


ag Coe Bare As 
& oY Resa! 
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e. new ee ee 
ons new ars ~acetneting eon pga hte SRLS 
RUPE © f potas twp rae ie ee . 
ay ype <p’ % rata ; 
var p: ptype = ptelbsnt}Salloct®); 


t 
| 
\ 


Lgooctisfter the bagin black ésveniaed, the jpoineer-consruced in apes 's by the inftistization of ¢ will 


0 2 Bibed at" EAEHA Che 


remain. That pointer wit be dangling becamee it gent nen wiek“$, Which ‘hus ‘been ‘dettroyed. 
However that pointer can never be accessed because its type inamely pista, ptrlh, tat] « cannot 
be written outside the begin black (the scope af #. Evan if the teyin iotock wore in a loop, 
1 & Sangling . cnet .ngpin when it would be 


there is no way to m., 
invalid. 


of tae 


ae Pointers and Al yt ie a 
De. Te iit adh BGA alent reat Mae Sine ai, sce 4 Pa 


With the addition of pointers, we arrive at a universe-af objects very stmfier to CLU's. 
We gain many advantages: sharifg; the ably be Weed ‘generat date suractures, etc; but we gain 
ial eaupniiat. cel mipes aca For sen thin, ee We 
+ evtist accept that a devefereies ae pedt ampthing ‘Of the ‘same type. It 
a ort ea anu wi in or with ey that erterenced patter of the 
same type. What kind of alas fife should “wi hae te this situation? Our approach is 


if files’ are sf "esd to prevent wnexpected sharing, not all 


“Sharing. "The sharing g 


- no checks are made necessary at a dereferencing. “However, var acguments stil connet overlap, 


s0 if two dereferenced pointers are passed as arguments there may be a run-time check; but no . 
checks are necessary if the pointers’ themselves are pasead. Note that only (dereferenced) 
pointers of . the same type meed ‘be checked; no others can pomiity overlap... The sharing 


possible through pointers is not quite as bad ‘as the sharing potentisily possible in selections: an. 


object in an area is never destroyed by having another object written over it; ab jects in areas 


‘J09 © 


may only be mutated. (This is because pt is. a selection and cannot. be assigned to.) 

. Another problem, which was mentioned ‘when? selections and aliasing were first 
discussed in Chapter 2, is.that having-an object‘as &. const does: not guarantee that’ the ob ject’s 
state will not change. This is. because the ob ject may'be accessible Via another path as‘a var, 
for example, by fallawing a chain of: pointers. However, even theagh a const say be mutated 
under some conditions, there is.a simple condition under witict it :‘can be guaranteed not to be 
mutated: the object .is not ‘allocated in an area. Tests for aliasing’ alweys catch overlapping 
objects residing ‘in the same, variable, 20: fan ob ject that: 4s-physiealty part of a variable Is 
_ accessible. as a censt, then we can be.sure it will.not be smated.: « The aliasing detéttion: checks 
performed before procedure calls, ‘guarantee this: On the-other hand, if the ob ject in question . 
is in an area, it might be mutated via painters: other than the one used to access it; but its 
identity can never change because the iroplicts vasiable it'nesides in:can never: be ‘sentred to. 
This is an advantage of Serefereacing, Ld objects instead. Ofte varinbles. 

. Note that if an. ob ject: has. omponen $ that. are. stored: in. an area, ‘then. its cichponents 
can always be replaced by. replacing. the pointers tp. them, we, ese no usefat ‘ability: ‘through 
dereferencing pointers to ob jects. instead of. to. variables: The ma jer disadvantage of sharing 
in ASBAL is the same. as its major ditad vantage:in- CLU: ‘sharing makes verification and 
proofs about programs. difficul, by requiring pore complex axioms and proof rules. The 
complication of proofs resulting. from : ‘Sharing: ods, Ate as. 7 .unsoived pesoiens common to all 
languages baying pointers or sharing. 


5.5. The eee} Problem 


When presented with an ob ject to copy.that contains peinters, should we copy just the 
pointers, or the ob jests. pointed to as well? The:problem is that-some types require copying the 
“objects pointed to, and other types forbidtt.. As discussed it the second chapter, the’ only 
| solution to the problem is to have each type. provide. a on ‘operation, which does nee 

appropriate. thing: for that type, _ 

In CLU, a copy operation will aaa copy. the ob jects referred to instead of | the 
ref ferences, but both sorts of copying are provided in many cases. For exampte; GLU: thas two 
copy operations for arrays, called copy and “Pa ee does a full, recursive copy while copyl 


bis sort, This. gives as: ste boone rot ci py fdr tect 


copies only ob ject refereneer: However, references are always implicit in CLU, whereas they are 
always enplicit.in: ASBAL. Beonuse: we-have. Cupp: retary ant tiniest eaecharane can 
up playsically. contain. cupaEnts, copy’ operations.’ te men. ~ ‘ie ay 7 

oo, dBhgpCaly contained. lev aeceatiject. Bor ceanaple; terenpy| apices: U7" 


rand’ arrays: 


7 _. pack. coraponent, is copie wslrny the oopiy operation OP ie-appe: WP edliive copying of this sort 


PORES and-ipctine uaat datiotignt Of 4 


iS usually, ee — tie copy 

Operation of thattype 
i af ii cer ennieuaadaaecieao thas which we cat tthe: sipiteatence 
. sy probleme: in. general: piaamnatenacemteamcomaetcioes mtn type, and it’ 

a svat at.adl. abyious: whict: conret- wee wltelt inaoaguntooncns re tite! 

fe objects ares amplaiont ai amt: elie ta a von adihesainssasmt bck aa Ta 
equivalence of te: stems ete Se een Pd nt td 


| +... felatene see meatal: a ies spine ig i diate of mee ety 
ATI, oe Rag emi: 
structures, 1 ach pe soul provide it. 


5.6. Implementing hein Pointers. 


Our original: Notion of ae: Rrea whi:a Blouki Of siériggy: alidtated! irr a stack frame, and 
. | that-of a.pointer was-a: machine’ achtvdes Sor poss att CPTURE Prete tht Dagiehiinng: of ‘thie area): 
i, However,: angie ERE Ganteioannek — We beichs of memory 
run-time support code, ‘but has more: fhenibiny. ser iniquity riowe ‘blocks of 
storage automatically if thelr orighut sinownt was uedd Ui ’ ‘fied sthe-biGtks would be | 
_. allocated; and-the- blocks. used by:an ares woutd’ be retin 66 «poet of Trev biodks wtien the | 
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area .was destroyed. Thus, very oie storage management would be possible. One could 
“even go so'far as to copy currently inaccessit areas out bo on-iine mass storage devices to get 
an effective Itvcreasé in ‘address’ space. “An sornetiat: different approach is to: “Implement a 


rete h 


single ‘heap in which alt areas atlocate their ob cts, ‘The op oo each area could, be chained 


ot oe 


together to be freed when the area is destroyed. 
| Somewhat orthogonal to the source of the sanetige a Ws rimnagement The simplest 


a scheme has been mentioned: before: linear allocation with no reclamation. However, areas could 


reference count their 0b jects; alloc and the pointer copy ‘Operation teak have code to maintain 
the counts. (The compifer would have to: help. 4p noting. polmters. thatare. ‘Gestroyed, however.) 
With more sophisticated run-time support, virlowsgarbage collection schemes could be 
implemented | Our goal has ‘been to avoid the DecetH af AAA collection, but that does not 
mean that we cannot provide it when asked. 

; One merit of areas is that they allow, many, att. er management. schemes to 
coexist, if care, is taken. Hence, storage _managen ities, can. be. tailored..to the 
programmer’ ’s needs in each problem, ¢ even within, diffe s ofthe same program. oe 

- We believe areas are a flexible and poten 


Shs Be aly efficent akernative,to. globa). garbage 
collection. Pointers can be as efficient as machine addresses, and allocation within areas need 
not be stow - area routines will most. likely be hand coded in assembly language. Arguments to 
‘the routines will be in terms of machine addresses, offeets, and numbers rather than types, etc., 
because they will be called by object code and not directly by users. The ability to tailor storage 
‘management to the task is probably the biggest advantage of areas over ‘a global storage 


management scheme. 


1. The main difficulty is supplying the information required for tracing. See Bishop 
( Bishop77) for applicable partial garbage collection techniques. Perhaps these techniques could 
be combined with Baker's ideas on incremental. garbage collection (Baker77), or with the 
transaction file methods (Deutech?6, Barth77} to provide areas that do local, incremental 
garbage collection. 


5.7. ae One - —_ 


3 : 4 we ioe eae ae ae 
Bere + we een ek the € mepee int \ 
Scgciecaiyyis 48 eR GS iS: SG 4aliH SHEE 


stan Of a uns ‘the jirse.pomeer + is mult if and only if 


he he queues m ty; the t — hs bs ue i. i 1 ahve an Arh serge kay ; 
_ : ae Be : oe bs f = a on 3 ” eae 
’ : ; of "1 ‘gf 2 die : ‘ 


ae we | 

2 3 ee ee SP eee 

=e we do. net have to 
eee ier ae wera ES: cc) ae 
nae eas 1 eneef’s, Notice that 


“ i vers aaa a = (a 9 re 


Py 


Figure 5. The Queue Cluster 


-s quetie = chisteria: area, ¢ typel:4e-creste;deiselt, remdv me, mernber ee 
7 where Chas copy: Peerignen  minRET So. 


rep = recordlfirst, last: ptypel; 


_ptype = ptr fa, element); 
element = recordinext: ptype, member: th; 
create = = proc () returns (q: cvt); | 
 q:= rep${first, fast: nibptr); 
end create; 


insert = = proc (var q: cvt, const x: 0; 


Yat p: ptype:ce ee x)); 


3 en 


7 if qfirst = nilptr 
then qfirst = p; 
_ else.q. tant nent := "Bs 
end if; | 
qlast := BS 
: end insert; 


remove = proc (var q: cvt) returns (x: ) signals (empty); 
if qfirst = niiptr 


then signal empty; 
else 


X := q.firstt.member; 
q.first := q.firstt.next; 
end if; 
end remove; 


members = iter (const q: cvt) yields (const 0); 
var p: ptype := q.first; 
while p ~= niiptr da 
yield (pt.member); 
p = pt.next; 
end while; 
- end members; 


end queue; 
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il¢ 


5.8. Example pee ee, 


- This example a ceerking of seg a Ohape ta mm epewe, we have | 
improved sedate apg “Pe tia seule ie 


" Poot: prodel; 


pnode « ptrla, node); 


node = recordl element: t, ; sient vig 
ra oka cd i 


right Prete’ 


This representation 1s eageneiaty Ste seen sat peovdous ne wit aera ropincn by an 
area, and array indexes replaced by pointers. Figure © prose ion emtiee chaser. ‘We feel the 


a ew implementation ts much mere elegant than the pueviews-ehe. Bethe previous chister, the 


array containing the nodes had to be passed in any recuretve " i te province, 
iicoiupiaad ce aco | oon hee 


15 


Figure 6. The Sorted Bag Cluster 


bag = = clusterfa: area, t: type] is create, insert, count, size, increasing: = 
‘where t has copy: sah a ere ee re ected ae 


pnode = ptrla,. node]; bapa eG ve 
node = recordl element: t, 
' count: int, 
left: pnode, . 
se pnodel; 


create = proce () returns (b: cvt); 
b= repSicount; 0 0, sizé'0, Foot nile) 
end create; 


insert = proc (var b: cvt, const x: O 
b.count := b.count+ - Ee 
const Rew_ptr: pnode, allocated: bool = insert] tooo, 
b.root := new_ptr; 
if allocated then b.size := b.size + 1; end if; 
end insert; 


insert = proc (const p: pnode, x: ) returns (q: pnode, allocated:bool); 
if p = nilptr 
then 
q:= ptrla, node]Salloc(node$(element: x, count: 1, left, right: nilptr}); 
allocated := true; , 
elseif pt.element = x. 
_ then pt.count := pf.count + 1; 
elseif pt.element < x . - 
then q, allocated := insert] (pt.left, x); " 
else q, allocated := insertl (pt.right, x); 
~ end if; 
end insertl; 
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Figure 6, (continued? 
size = ~ proc (comet:b: ert vetmens (s: int); : 
8 := bsize, — 
end size; 
count = proc (enwat br: ert) returms cath 
c := b.count; ~ 
end count; 


increasing + tter (const b: crt) yields (const:t, daa; 
for const e: ¢, £ hot in incrensing! (bien do: 
yield te; c); 
end for; 
end increasing; 


increasing]. = iter (comst p: prod yet Conat in 
for const e: t, cat in ' pt etd de 


ete 


5.9. ‘Example Three - gduatals Table 


Our last pecurn is. a new one. The sbernein fd taken from ‘tWult 6c), and is 

if AVE. ae 7 
presented to allow comparison with Alphard. A ‘symbot table performs a a mapping from strings 
(representing identifiers) to aoe abate in ‘ehseratiner eater ‘Here i ‘the cluster 


header: 
| “symtab - Sesion area, ar: ype) is create one test ied, 
where attr: has copy: proctypelcoust attr) seternatattr) hota ih 
anda | description of the operations: oe sana lie 
create: proctype () returns (synitab) S De Geant 
creneee, ney, eee), symbol jai eget bg © Pa yct 
a pel signals (defined) 
with nape nna de te aye 


insert: | proctype (var 


“is.defined: prectype feonst' 
"returns true if. and cf th bba  el at he ec ee 


enter_block: ‘proctype (var symiab) Ar Ne bi Ss 2 
perfor whatever PO ER ee eee: 


one LEA pee Ree SS ee A a 


leave_block: | ‘proctype var syméab) sigale (underflow) 
. flushes symbols of top S00P and drape Baik ‘a: bree] signals underflow if 


oan attempt fs made to a fet stedred 
lookup: —_seitype Cothing) of attr Heh symtd’signiale (not | 
- selects the attribute obi jebt' Fdethe ‘sy s hull ad signals not_.present if 


there the syhibol iéviet tev fe'tibie Bee 


A hash table will be used: to’ took: up the sil Whe table. ‘We will use a linked: list 
for symbols hashing to the same buckes; the: haah. ‘Baie ese to fetch such a list. Each 
entry in one of these lists will be a pointer to tl the. data srocure for one symbol. This data 
structure consists of the name of thes symbol (ring, = we, ech of entries made for that 
symbol. Each block is represented by the list of the symbots defined in it, and the blocks are 
stored in-a stack. An actual statement of the representatiall stivaid make this more cleat: 


© ated Ps 


“ns 


eee 


‘See Paes are for an. n example. of: ante te een 
performed. Here are: 


ea te igh Ye atk eng: ‘ie i wt Ages 
i sainaaate sducmriaaalt eas Gare sai 


AD. co pert tea 


diets Pere. : cn rie a DO 


(3), 


mc) 


ae ee 
‘tah pe ce: ae onaady epieelll a ee 


che ay aes 


The pecans of 
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Figure 7. A Snapshot of a ‘Symbol Table 


Below is a drawing of the representation of a symbol. ane after, the. folowing Qperations have 
been performed on it: oe ase . 7 . 


create — 
insert: a, xl 
insert: b, x2 
insert: d, x3 
enter_block 
enter_block 
insert: a, x4 
insert: c, x5 
. enter_block - 
insert: f, x6. 
leave_block 


(Assume that a, c, and f hash to the same. bucket and list. and. ‘stack are € implemented with 
linked lists.) : ; a ee 


(1) creste: _prosty—et} returwsttiedag) 


(2 cons) bigalanatit ita) reterns (hatlas 

or rom coming to ang de pes Se feo 
of the fat, 

the new-element is made with (Seopy 


(3) members: itertype(istiat)) yields(t) 
yielda the elements of the lst in order 


Now we present the operation of the stab hate, see'at 5 thee 


create = proc (). retuens (5: evt); 
Si neti 1, 


a Sante, Steen 

' end create; 
Thus create returns a symbol table at block level 1, the outermest block, with an empty hash 
table, and a single block with no symbols. 

Th te pan ty gh et own rn te It. 
works as follows: | | 


Ww the imput string fs hashed and the bucket siached tose W in presents | 
(2 if the symbol ts present, and -it'net defthed at the corrent-bitch: level, then a new 
attr_entry is created and gushed qnte the steck-ot gatries for ther symbot; 
(3) If the symbol is defined ab-the current block fevel, then defined ts sigrentied 
8) if, the symbot iq hot presenta new attr_entry ts cramted for the attrtiates, a sym_entry 
ae Is cofvstracted for thé symbol, and'¥r is enteped.tn tie Duh st; ed 
—@ tasty, the aponbet ameret san ht net efi ol for the content block. 
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insert = proe (var 4: cvt, const sym: string, attri 
const bkt_num:; int = eouisiedls 

var p: psym_ent := nilptr, 

for p' tn buckerSitie 

if pt-symbol - 


then ? a ee . 
‘if ate hen tate cor ptaackop de loves, 


: atte). algnals (defined); 


break; 
"else signal defined; 
end if; 
end if; 
. end for; 
if -p = nilptr 
. then. 
‘pm ptela, sym_entrySaltoct oe 
sym_entry$(symbok sym, sig 4 
stack: attr. stkScreate))s, ge EE 
att stk$pushipt stack, ppeaclauetn . level, 


pum); : 


~ stash sablelbke-jumnd :~ buckethoonalp. 
oe end tt, | or 
const, newbik: symlist = nbsrapaperiet bh xpi sta 
bik_stkStop(s.blocks) symbols := 3 
end insert; eek, hate 


The operator cor (for conditional or) evaluates its. second argument only if the first argument is 
false; its value is the logical or of its arguments. There is also a cand operator: conditional and, 
_and_it evaluates its second argument only if the first argument is. true.. The.regular and and or 
operators are sugars for calls, and therefore always evaluate Boscia eaiueial The cor used 
above prevents our following a null pointer. 

The rest of the operations, ts_defined, enter_bloch, leave_block, and lookup, are 
straightforward. Notice that leave_block must throw away all symboi definitions for the block 
_ being exited. However, it does not throw away an emery sym_sth; in this sense a arriba once 
entered, is never deleted. 
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is_defined - pes coe rs rng) san bt 
for const p: p_sym_ent in buckets 
——— om 


end is defined 


enter, Dolo = = proc tar ‘s: eve); 


steel := s.tevel + 1; . 
end enter_biock; 


leave_block = proc (var s: we cau i 


‘if sevel = 1 then signal underflow, ond if; aa 
s.level := s.level - 1; sie hk 


for var q: p_sym_ent in 


attr_sthSpopiqt-stack); 
end for; 
end I leave_btoek; 


* 
Mit meson ee B. espe t x gst ves (BEERA AEE TS 
eae ; 2 
" 


ine 
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| ay 10. pe rlgaes of Area- and Btack: Based 4 Pogrmming 


: Thais are. » considerable differences: a: bet ee signing & clusters for ob jects:in the stack — 
and. ones. for eb jects to be. allocated. in. areas. - Unfortunately thie: user must plan ahead because 
abstractions. Mesigned. for the one storage mode wil} rarely: be convertible to operate in the other. 
The reason ‘is. that stack- and area-based, abyvaction take. different: parameters: ‘wack-based 
abstractions will use size parameters, and. ‘aren—bangd abstractions will take-at feast: one area as a 
parameter, but not usually any size parameters. thawever, tf: the situation is examined more 
closely, it appears that, stack- and area-based abstraction will ‘always be different, abstractions, 
so interchangeability of themts not ren, destrabile. ‘For éx aang fe sack-based abstractions will 
_ always be ‘bounded, wheréas afea-based: types wilt. “amuaily be unbounded. Often just this 
“difference is enough to ‘cause the functions of “pe tons to be defined differently for 
stacks as opposed to areas. Another difference is that arrays will ‘be used to represent lists in 
stack-bated ‘abstractions, biit true tinked Ains' with potiies be lied in in areas. This matter 
of bounded vs. unbounded abstractions néeds fiitther research: 


SL gnats 


We have presented areas and pointers, features that, add 1 dynamic storage allocation 
and list Processing capabilities, to ASBAL without requiring. garbage | collection or great 
run-time overhead. Our pointers are safe: they may never point to garbage. Pointer safety is 
guaranteed by compite-time checking which Prevents { fol wing any. dangling, references. We 


extended our altasing detection and parameter mechanisms for areas, and. discussed a variety of 


‘possible implementations for areas. Lastly, we presented three programming examples; pate 
were new implementations of , previous examples, and one was. a new ‘cluster, We believe that 
the concepis behind our areas may be useful in other languages besides ASBAL. 


6. Summary and eaten 


does not require garbage coliettion:: Our-ayipre 
extend. it as: neededi: The: ‘enejer ienabeuies bed tieetytng seat ‘model of 


Ba ae. 


We have Seligiad. a peapieariagg aie ineiagie sing. abstract data types that 
oii widd We add CL 03's Basis and change or 


vés ‘imany of the 


tet? 


ah jecorariacent conaignn? f° CEE: ang a al ‘Thite changes wer 


yy oy 


Micinechcmmtcees oath hie Pan ye Pe 


Va 


— -w. ‘Selectors - a mechaniun fr accntng. ob ac spa win ctr oct 
7 x Size parameters '- a feature plo gaia tacncandaatty tout handling 
__ size, _automaticalty wher aha Gaeded, sine parameters sre eonereial where 
‘object sizes ett reacts 
. oO et and poi 


Of the three extensions, two are just generalizations of commonty accepted! ideat, from their 
present use to the i of abstract “a Eppes. Selectors generalize r recerd and array component 


"he VEST OS 


Pa access, and size: parameters generalize array bounds and | dope vectors. 


arise. "wi cy rn wi bh 
Tn sehexage treeless ie el 


Phgn3 


Areas extend’ the. language in quite a different direction. They a are an n orthogonal 


addition to the basic eee Prem in \ Chapiers& 2 to 4 Hemever areas were added | so easily 


2D nga 


defined omer for all types. 


Et eo eytg 8 
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6.1. —- pallens Research: 


FS 


4 , felated . ta, the. poe of 
adi few. eoncerning ASBAL | 


pes. Ere, we, we. = p 


languages supporting abstract data | 


: directly. One ‘obvious extension of our r work, is to mpl the language we haxe. designed. 
An implementation would give direct evidence ence of, rhesbes fs . ure rp we clair are good. really are 
worthwhile and efficient enough in, ‘Practice. .W Ws He. belgxs, that on mec! anians for. _retupning 


and size parameters are the most ques These, two, mechanisms. were the hardest to 


design, and are stil not completely utes, A iden shave parts. by. gehen neamarchers 
might be worthwhile. . a 


aan 6 more ambitious _underaking, woul be. xenon to, ASBAL. for . systems 
programming, although any ntation woud . need t0,extend She: 2 dangungs: some, . oHere 
are some systems Propronmag f features that might be, added, iO. 


te machine-oriented: types ‘(stich as words, bytes, bit rings addresses, etc); 
(2) type éhititing toopholes to allow certain unsafe operations to be performed; a 
49) ‘controtied ‘exctittions into assembly ‘anguage for other ‘unsafe operations, such as 


~ contro? of input/output devices and ‘apical hardware “ton i cache mermory?, _Prpcess 
swapping, and other features for — g higher. ‘ed paral aici: 
constructs; sad ae TE | 
(4) user-written storage management tere ama in the form of new 


: implementations of the area “ee 


. ‘Kecgie suggestion for further Atvvestigntion 1s incorporation of our area and pointer 
mechanism in other languages. We believe our scheme has. merit independent of ASBAL, and 


he tt wo 
AE la hd a an 


SAS 


ELERDIETEA Fy for Reale I ee seine 1 proslnnye ohare pray is 
simple but inadequate, because there is not enough control over which programs may use it, 
and how they use it. — 
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it,would be interesting to see if W did have applications aleentass, Cempartzon of our area 
mechanism with its parent, Euctid’s collection mectantem,-dhight:atib tu werivwtilie.° ‘The size 
parameter scheme could alto be used in other inngunge deigns, since te x fairly 
iadiceldnie emgrncieaiearap oi Saeape 7 a 
" WdiPerdeit tine ‘of Retesreh’ ts 6 ¢ pis nponge with the same goals as ASBAL, 

‘viet rion de still We ‘thsScatlon CE Horage ‘tor ebjecn. This might invotve 2 
-apeitests WF the CLU ‘thiol thd the Spang am ‘antag ope managers. Each type 
“manager woe statically poistes ioriige and would ‘dabcale' and free ie ome ob ects » within that 
- abage? The asei’s Vath th that” would codiain ony typed ob ject references, which 
goer ae sees ages igs “Hence each type cig fais 4 : would 


Pr soaw -geb 


distribute. only references to its objects; the objects would be — * its private storage. 
Pepey the refehendes aennbedenisin: tee yee range oe -eoriemed becines they 


ge AY oEP 7 HY she, roe, SL a ob ject 
references are used, and sharing cond -eally | be stowed. pester. freeing the | 
storage used by “inaccessible ob. Another _Sitfias : TAI paraspeterizing type 


ee a Pad 


eat hee we believe the e type. manager 


raha ae 


plaeanee: and.could be = simpler tha ASBAL. Rw 


6. 2 Conclusions 


“ "We belive we were ico in delgning + donguage mith nbewec aia type that 
does not require garbage collection A aie a gga Sl "om “wb 


1._The station af scinage Gn tops eobagers aga ick 


t not be | 


simple; the type managers would have 

ee ee aye 
CADE relight De Hard ecard A wl i 

‘ with “qdeude: of aivy type. “EateWise, — ws 

= 


wah ELD RET Grin: Ag 
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| ASBAL does not have the ehgance of LU, But we did not expert it would. There 
appears to. bea irade-off between elegance. on. th. 8, hand and efficiency on the other. 
CLU’s semantics achieve elegance through the use of a simple and powerful seraantic, model, 
which unfortunately requires fairly complex run-time superar We have traded. away some of 
that elegance for a more efficient ‘run-time mechaslem. ‘However, we Have tried not to 
compromise: some. more important aspects. of .CLU. One peagudice has been: toward a. 
completely type-safe language, type-t afety being a a key to the abstract data type methodology. 

If ASBAL does not. have CLU's 3 elegance, neither does it have the simplicity of 
traditional languages, for ‘example Pascal. In fact, clu ee more complex than Pascal (and 
_ similar languages), ‘but more because it has a paramejer_m in echant iam than because of abstract 
data types! Yet ASBAL is more complex than CLU. ame believe the source of ASBAL's 
complexity is-the constraint of. ronning -within.a Sack, and.net: using an. automatically managed 
heap, In a sense, we have built ASBAL of’ ‘earbnfenapenin Sednbeton te ee Fiabe on us 
by our requirements. 

ASBAL represents.a synthesis - of ideas from’ several languages, and several semantic 
models. We feel the synthesis was profitable, and hope that our work May suggest and 
7 becca more Investigation in the area. 


1. Pascal -has been criticized on 1 the grounds that it ts t00 unple in this eres no. Pascal 
program can deal with arrays of any size. 
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I. Syntax. of ASDAL 


Hore we pronant the ful, connie syntax of ABBA “The motatonguage ured Is an 
extension ‘of the uiuet Bithon-Neir ‘fore, Rdunbrndee: lal sy nit and thet neering is as 


follows: 


{ a -enciowe on Hom which may be'repeited ny’ number of hie, iniuting bro 
oe alee - separates choies, thus "6 |b" generate olitar* . forte . 


() - are used to-group items and eliminate. ambiguitys ia Mee 
“>  —- used to separate the lelt-hand side. of each reduction « nontermina!) from the 
Hh eds ie srg sear a 


Nontorminal: symbols. ere: represented ee acter eyntan are terminal 
(excepting, the-spaciok motelanquage epmiete: PRA rob gee gee oh 


I.1. Formal Syntax | Bee | oe ee te 


IA. Modules a . 


Program: 


module 


cluster 


clustermodule 


procdef 
iterdef 


seldef s 


aes “yf . 


ote f mies} ~ | 


— cur | procd he Bee ae 


| t equate ‘} rep * ‘ype € sacl 4 


clustormodie { ¢ ab ; gia 
=> procdef | iterdef | sate mugtial  — | 


[restrictions boc sane 


7 | oid er ar poeta] [ee] 
y [' restrictiona ‘ +} eay ent {1a Jie 


 wid= ~ selector f tporme:]< [toe satya, te om} ) 


" of stype from id: meres coca eae }: 


11.2. Paravooters sind Restrictions ae 


fperms - . 
 feparms 


fparmitem 


ai -> >{ fpermitem {. toarmitom 33) } 


7 >t [ trarmton { “fel 


=> ids: (ist not ena type | aren) 


The above three productions are for formal peremetors (to; aH, Matinitions 
except clusters), formal perometers, to clusters, and the items in formel 


_ perameter lists. 


aparms 


aparm 


| Set aH bebe th 


=> exp | atype 


The productions for aparms and aparm ere for. actual —— which may 


. restrictions 
restriction. 


restrict 


| = where rion {a 


be expressions, or type onect ator atwtin? ands's in thom, 


Bib tsa. 


montis 


2) PERE 


> id bas restrict { .rastrict ae 


=> Ids : ( ptype | itype. inca. 


1.13, | Arguments Returns, Yields, and Signals. 


fargs 


- ' faitem 


frets 
fyids 
fylditem 


fsigs 


weg tte seat | 


1.1.4. Statements — 
body 
equate 


> Statement — 


= of taitem { , faitem Bp. 


> (ra jonas, ) ie ssn) 
~> returns ( I Wes ot rd aigage 
=> ( var | const ) stipe ees Se hs 


= id | Catype f vatvan fo] 


The sbove-productions are: for tormelcergumantlicte;-retiarete Hats, yields lists, 
and aie tists. hewn are yroaret vires joapaag 


= { cous ‘i étatement =i!" 


-> id = exp” 


Seg 
“| aesign 


. deel 


"assign 
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Jif 
| white 


|-with 

except 

[begin ee Poa Be weeks 
| return | : . a eee 


Lyle 


[select . . ee eee er 


| signal 


_[ invoke. Met oasis 
|tegcese 


| break | 
| new 


; => var ids : atype { se ba ee od 


[varie styne { vides type}. 


| const ids :atype { , ids satype Prox { sexe} 


In the first and third productions for deci, fis ‘heinbor hinder of identifiers on the left 
must equal oe ees a oreo ee et 


=> ids moxp { , om} 


There must be either one serene or as many expressions as there are 
identifiers. 


. rapt te Jn] 


“= ie wp do body end f wie] 


_ For totceet { ord Yn wih oy ind for | 


ot ] in nv de body end [ for J 


 othersarm. 


; = signet [¢ Low. aint ee 
ae 7 res(forfinepp: 3 


o> (vee fewest Jie retype 
we ( vr jot) anni anf a 


‘ = taamant enapt{ wt} [stares fmt | 


There-mast be ot ess! one whenever or ottoman present 
=> whom i [torgs ] statement 
| whew ids (*): statement 


"In the first production, ail the enceptions niiod must send:exactly the some 
+ types of objects in the some order. Tol Wake peouctiow te wed for 


throwing wey the objects sont cing, ofl We: 'remter ont types. of the 
objects need-net be thy seme for: ot enn : 


=> others ( const id: qlype-) : statement 


ema ican genie 


Tm esis ing 9p me ig 


“avd te the name: oF Hp o 
“sis 


ast sae 4 et. WT 


=> select exp: 


- conn om xe ef rs} - Le 


: : sel Cachesbnve ~— 


138 


There may be only one others arm per tageace statement. All tags must be 


_ accounted for in each tagcase statement. All, tags named on the same erm 


break 


LAS. Expressions 


exp 


must be for See TLRs See See Oh he een Rocared “cen Urer must 
match thet type. 


=> break 


' => new id: area = exp 


The expression must be en invocation of preline 


Several of. the: above. alelemtiote ore. aliments in particuter contexts. The 


return, stalgment-is: Jagat only in procedires ‘ahd iterators; yield is legal only 


iy. iter stores aabect ia: logek only oe oeerer aeons is allowed only in. for 


=> exp bop exp IS an OE ae, 
| uop exp 


- | Cexp). 


Yitert Le ORY 
-| selexp 


 Jinvore 


~Latype 8 id [sparre J 


J up. 
| down 


The last four productions of xp need explaining, they ‘ere for routines. The 


‘special routines ‘up and down are. allowed only in clusters” and convert 


nee between the abstract and rep types. . tik 


selexp 


=> W 


Lov ie [ Com § at iZ 


| - fexp Coxp J 
_ jexpt 
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literal 


‘ booflit 
nulltit 


ptrlit 


These forme ore {in order o veriehie, selection, errey indexing, ond pointer 


/ felvia 
l+1-t 


“delle P=b [<|— [1-1 


| & [cand 
[| | cor 


The operators on euch tive hove the’déeme prévedence. The operators in the 


,. fieet tine tied set highttp, dole thé: sectdit-fees tightly, ofc, 00 the test 


tine binds jweat tigtly.” For-all upntieioes Gram trem the come tine, except 2, 
‘x op y ep 2” meane “xo 7) op:eh Wanye tne 'u 20 fy om 2P. 


= (* 
| ht wt pat | am 
| atype {exp : som { 00} 


‘ 


[atype 8 { exp - exp : exp J 


| atype 6 { ids: onp { , ide :oxp }} 


The second and third tines are for thearray congtiuctor, which hee two forms. 
The ‘[ expy : x9 | Oup 3» 0mm, Term means an seray with low bound 
exp, and nm ctements, exp, through expy in incressing order. the 
‘L expo ~ exp, : :expz T form means an arriy"dith lower bound expp, upper 

bound. martexpy - Tet a See ee eee The test 


1.1.6, Types . 


type - 


ptype 
itype 


seltype 


fpargs _ 
fpargitem 
fprets 


| ids 


‘116 [ eperme ]: 


= [ tpergitem { , tovatn} }» 
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| => int 


| boo! - | : 
| char Bete 
| null: oe 

| area 

| string [exp } 

| array [ type sexp., exp.) rege. eine 


[record [de type { ide type} 


Jone Ces tpe {tse BY : 


[ptype 
Jitype 
| seltype 
levtLiexp) 
[pte Cid, ctype} 


= pee fparge , fpcets IE foigs 


=> itertype tices tide [ toes J imal 


ao seltype [ tperes: Jotsine from ad ie | 


v4e°2 ‘ 


=_ >(m var | const ) Pe Ss wah : * ao es oe 


= returns ( [ stype “{ » slype } ] 


out, ia} oe anes a 


The productions of type ere for those positions where a. v-typespec is 
required. —- os 


jsrog [C1 s00m 1] 
_ [array [stipe | 5 syne een 
record [ ids : ctype { , cas” ee 
} oy 


Sages 


‘sear 
[ de stype { , ee mf 


Jert [ Cssewrm }, cow fid 
ee oe 


; ; | ? [ 3 part : é 
sparms ln per i Mabon 
sparm ; ; rf, aa 7 py ee get . 
: . abel: re 7 gs 
An st ij es 


Lie. 7 
Question Mark or Star 


qatype 
om | . oan 
| char 
woe | null i 


qparms . 


-qparm 
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oereapiectac fi ae 


| record [ ide: atype { she ctype }) 


elas atvee } 3 


[om J 


| ptype 
Jitype — 


Jer [trum orn }] 


Ie [to amng ieeem }] 
| [ptr Cid, atyee J. 


= t[ soarn {, whem ben} 


=> exp [tid te ; rar 


‘The vchatnariat pbepeaicpendl to et Aypreneee Sens ee: ; 
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- 1.2. Syntactic Sugars. 


There ore quite » ow eyntectc forme which ora ‘sugars’ fer mprmel: inecations These 
forms are eaten ealoms =; y-nd x ore sepmaiahe, #3, tier, me Fee erteeine 


1.3. Reserved Words 


and char else from iter of record settype then when 
area cluster elseif hes itertype oneof rep signet = to where 
array const end if new others return signals § frue white 
begin cor except in nit proc returns string type with 
bool. evt false tet niiptr proctyps eslect = tag up yield 
break do for ts null ptr ‘setector tagcase ver yields 


cand. down 


1.4. Terminal | Symbols 


‘ge, 


were 


alpha 
“letter: 
digit 
intlit 
charlit 
“atettt 
race 
, printing 


special 


octal 


) one sete aat } 
7 > letter | 


Rete ae 


> oj.]9 woe | ay ay a : on ats 


geod Ms 


=> digit { digit } j 


> > (chases) z= ot ee _ 


7 ot cher rep r ie ; aa 

-> printing | Voce 

=> ‘any ASCII character such thet Mi < aS value.< 77 
>? - % represents ' | 

ag % represents “ 

[\ % represents \ 

jt : as Xrepepepnte HE (hervenntel:tob) 
Jp % represents FF (form feed) 

| b an Pe 21 Fe iF +3 

Ir  % represents cR icutlaes: return) 
|v % represents VT (vertical tab) 
tL ceiah octal octal | | 
=> 0. \7 7 
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Hi. Baste Date Types of ASBAL 


vgs 


Here we detail the operations of the besie types of ASBAL Let us first describe the 
__ special notations used. The arguments te per stinte tthe athset ebjects, not the ‘syntactic 
expressions) ere called ‘argl',. ‘erg2’, etc, or just the argument’ if there. is only one. If an 
operation signals ‘foo’, we say that foo occurs. The "tysat pel of operation names i is dropped 
where there is no ambiguily.. Arithmetic ied - me contained in the;text ere to 
be comprited avier-the demein of sit integers, tisk just the-Gomnaion f the: tne ten. | 
Some definitions inveive restrictions. Ito defivition ae~a restriction, it ‘le ‘either Py 
standard where clause, or of the form 
where each T; has oper_dech, . 
which is an sbbrevietion for ee ch, ae 
a where T; has oper_deci;, ... T,, has oper. decl,,. ie: 
Several definitions will involve tuples. A tupler is; written .<o 
components of the tuple, ond 2; is called the i? tompenent. A 
antes ~ ae ee eee 


Size(<a;, beep &)?) a. Bis 
- A= Biff (Size(A) = = See) 6 $15 mh = “bd 
| <3, b> [I <c, O85 oy Gm 
Front(<a, ..., b, c>) #<a,.,b> ere 
—— Tall(<a, b,.., >) @ <b, 0> 
_ Tat(a) = A ond. viahalegye-tatcahny) 
Occurs(A, B, se, ene CHAT WSieoto) “ i - HJ 


ae oe 


Lastly, w we say ies A cecrs thi 1 is Oot, 8 mie, 


11. Nulls a oy o emt 
There la only one, Inmutaliie ebipict of type wall, donated by nit 

equal: _practype(const mull, wail) returns (beet) nee 
Always returns true. 

copy: proctype(const mull) returns (wall) 


The obvious copy. — 
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: IE.2.- Booleans: 


There are two, immutable objects of type bool, denoted by trae oid't ‘false. They saorweeat the 
logical truth venues. 


and: proctype(const bool, bool) returns (bool) Seb Fi lhe: Sasthanr 
or: proctype(const bool, boo!) returns ( (boot) re eee 
not: proctype(const beof) relurns " (boo!) . 5 


The'standara Topic onetons. ae ae 
' equal: proctypetcont boot bool) returns (bool 
Equal returns tine itt its arguments ere the tame. 


copy: - proctype(const bool returns (boy 


Copy simply copies its seit 


IL3. Integers 


Objects: of the type int are immutable ond represent « subrange: ofthe mathematical 
_ integers. The subrange (which may differ “with, each . implementation) is... closed. interval 
[Int_Min, Int_Max}, where Int_Min's -2!541 and Int x2 210-4. ‘An overtiow exception is 
signalled by an operation if the result woe He outside.-this. interval: " 


add: proctype(const int, int) returns (int) signals (overflow) 
sub:' — proctype(const int, int) returns (int) signals (overflow) 
mul: pedetypeteonsr: int, int) returns’ raha soutiesinlorss 


‘The standard Integer operations. teen BOER ph Re 
sain proctypetconst int) returns (int) signals aden: | | | | 
| Minus returns the negative of its oreument. 
div: proct ype(const int, int) returns day ‘signals {zero_dvide, overiiow) 


Div computes the quotient of argl end arg2, ie, the integer q such thet 
(3r0 x ¢ < jarg2)) (arg! = as arg? +r} Zero_sivide occurs It otg2 = 0. 
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inet S eciessaues ns tnt) returns tint) signals (negative seponent syertow) 


This computes orgi reised to the org? power. Power, Oh 1 Maas exponent 


occurs if, arg2 <.0, . ee ohh sony 
mod: _—_— proctype(const int, int) returns a ain (20ro_sivida, overtiow) 


This computes the integer remeinder of m myo ys In the rant is. 
arg! = meres, arg2). Zoro_sivida occurs H arg2.= 0, eae 


from_to_by: itertype(const int, int, int) yiekde (const int) senate | (zero. 


This iterator yietds, in succession, arg), argl + area, argl 120 mpaaote, ul the nest 
value to. be yielded, x, satisfies b> ara? A org > v (x <org2 A org <0). 
Zero_step occurs it org3 =0., sy 


tt proctype(const int, int) returns (beg!) = 
le: | prectype(const int, int) returns (boo!) a 

equal: proctype(const int, int) returns (bool). 

ge: _—proctype(const int, int) returns (bee!) 

gt: proctype(const int, int)returns (bool) 


‘Copy: proctypetconst int) returns (int) : 
The abvinite ae ee 
HL. Characters, ae is fee “ be fete 


The objects of type. ine: are eatelies: wedi aad aaichir. ‘Every 
implementation is assumed to provide st least 128 cherecters, but no more then G12. Character | 
are numbered from 0 to some Cher Top, and the: niet dork | for the character 
type. The first’ iced i laaheaesde are rth A hrc te smear, : 


i2c: proctype(const - returns tohar} signals (eget cher) 


i2c returns the character ‘numbered inbche wn the oer 
occurs iff the s aegimiant is net inthe + range 10, Oner Tap} 


cai: 
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proctypelconst char) returns (int) 
Returns the numiber corresponding to its creme 
Its proetype(const char, char) returns (b a). Ae 
le: proctype(const char, char)’ returns (boo!) 
“equal _ proctype(const. char,.char) retuens (beg!) a 
ge: _ Proctype(const char, char) returns (bool) 
gt: proctype(const char, it, char) feturns (boot) | 
“The ordering rétations consistent with the numbering of cheracters. 
copy: proctypeiconst ¢ aber) retarns (char) | 
‘The obvious copy. 
_ WS. . Strings | 


‘Strings are immutable objects. Each: ‘string represents a tuple of characters. The ith 


character of the string is. the #?,emponont: Of: Aee-tuple . ‘The: Siteret a string must be # legal 
integer; if it is not, then a failure exception is signalied. Furthermore, @ variable declared 
string{wi}: mest be ble he store strings whoed ‘size wor hat exceed n, and may possibly store 
larger strings. 


size: 


indexs: 


indexc: 


ces: 


| procty pe(const string) returns (int) 


Returns thé'size of the tuple cece Ks + erguniont: 


proctype(const string, string) reins boul 


The operation returns the least index at whieh et occurs in argl. Notice that this 
‘means 1 fe-returned if fg? is i trina) weet 


s rot occur in oral, then 0 is 


returned. 


proctype(const string, char) returns Aint) 


¥ 


Indexe returns the least index at which big 1-tuple nue occurs on orel. If <arg2> 


does not occur it arg, then 0 is returne 


“proctype(const char) returns (string) 
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concat: 


append: 


fetch: 


substr: 


9 wests. 


s2ac: 


ac2s: 


chars: 


- Returns the string represented by the 1-luple <ergi>. 


a LSothp cEPaays a i 
proctype(const string, string) returns (string) 
Concat returns the ates for which arg] q ora is the: <Seroeuntation. 
procty pe(const string, char) returns OP eg oo. Une 


This eeacaion returns the tring raprontted Wy are —— 


_proctype(const string, int) returns. (cleat signals Geawode) - 


Fetch returns the arg?! cheracter of ang). nunde seoours (arg2 < 1)v 


. (arg2 > size(arg!)). 


procty peiconet string, int, int) returns (string) signals (bounds, negative_size) 


Substr _ returns _ the string. . “represented by the tuple of size 
min(arg3, size(arg!) - arg2 + 1) which occurs at index erg2 in ergi. Bounds occurs if 
ahaa < 1) -v (arg2 > oleotergi) + M. Magalves.sine svete 1 rgd < 0. 


prectypeicane tring inh semen crt ana Sure) 


| Equivalent: to substrtarg, o2, sana the ml ‘Tenere2- Mara 


‘sie psteona string) returns (array[cher) 


This operation creates a new erray, the elements of which ere the characters. of the 
argument. The low bound of the. orray. is. 4, and:the.size of: onremn esinc(ore!): The 


Tate 


Ith element of the array is the ith cherecter of foshing 


. proctypetcanst arvay[char) returns cing) 


, Aces is the inverse of s2ee. the. sop le, the_slring sith cheractere. nthe seme order 
as in its er gument Thus the ith. character: of the result. is emecoecnel ie - 1th 
element of the argument. 


itertype (const string Fields ( (const chet) 


é eee te. “pe 


This iterator yields, in partes esch character ot. is eas 


"ee ne: Arrays 
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its proctypetconst string, string) returns (heal) 

ring poksinoy (beol) 
equal: proctype(const string, » string) = oe erate oc 
ge: proctype(const. string, string) returns en returns 


at:  prseaypidiine stig, ea ray be 


mp? ascents By eS Pry g Pk ohes 


These use the usual lexicographic ottibring tebed ih ordering for rcharectrs The it 
operation is equivelent to the following procedure: _ 


ne pa beigneage yes Higa ts returns (tess: booed; _ . 


if size_x <= sirey 
then min := size_x; 
else min := site_y; 


end if; al 
for const i: int in. int$from_to_by (1, min, i) oo 
if x(i) < yf) arn 
; then less: 0. true; return; | Sod eLt age oat a ce = Heb ES oo 
end if; ; - eee 


end for 
tess = ‘ane < ad a i ae . 


copy: . proctype(const sting) returns i 


| The otivious copy. 


cor 


The array type gener stor defines an infiwite aah Wilk For every type T there is a 
type array(T} Array onisets are mutable, The tele ot an \ array object consists of: 


1. an integer Low, called the tow bound, ond ed 
2. « tuple Eifs of objects of type T, called the elements. S 


: We slebslafine. Size © Gize(Eits); ‘end High «lew's Sige* I. We want to think of the components 
Of Elte-as, being numtiered front Low; 'so we'detind tie ‘array jndei ot the I” component to be 
(i - Low + 1). Each array object la of bounded sige, in two ways. First, He Size, Low, and High 
must all be legal integers. Secondly, Low end ‘High are bounded by the size of the variable | 
containing the array. object. ‘Any attempts to Violate they “Yentrfetions result in a failure 
exception: failure(“itlegal_arfey") in'thie (ret clita, ond TaRGREC veclabh overflow”) in the other. ‘A 
variable (or object component) of type array[T; |, h) must be eble to contein array objects with 
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Low 2 | and High < hy it may be able to contain larger errays. Hf encerrsy.is.essigned toe variable, 
‘grown with addh or -addl, or shifted. with, set_low, such ‘that the Wenits of. ‘the. variable would be 


exceeded, then failure(“veriable: overflow”) i eats . -mentioned-sbove. 


eo 


c, to refer ta woe af thet object, but 


aby re cher 


Note that for ail array: bison opti tion occurs, (other that foiture), then the 
aw Taek e eter : aged Be! it Pa 
states of the arguments are unchenged from those t'the ‘time 61 trwoestion.. 


We use the. sbbrevietion-AT. for ne eee 
create: proctype(const int) returns (aT) 


This returns. en:sittey’ ‘for whieh i newts ow'ie wg! ‘ori Bile: 


new: proctype() returns {AT) ; eh geo 6 wie 


wap apd EL alte te 


Equivalent to creste(1) 
tow: proctype(const AT) returns (int) 
high: —_—_spprectypefconst AT) returns (int) 
size: - proctype(const au returns Aint) 
These operations return Low, High, sr Sie, reopetiely. 


set_low: Proctypetvar AT, const int 


Set_low makes Low al to oe This: bested. mey involve physicelly. shitting the 
elements of the array in storage. However, block move instructions -evelleble on many 
machines san he. vend. 30: help implement eo} jow. 


_ trim: . proctype(var AT, ‘const int, int) signal (bounds, ragetiva sie) 


This operation makes Low equal to arg, ‘eee hes, Ete emt t ta the Sie of size 
min(arg3, High’ - ‘erg2 + 1) which occurs in Elte’-at index erg? - Low’ + 1.! That is, every 

eee element. with ercay index legs. Ahenverg2,ser. sqvapter :thenime: equal :-40| aeg2:+ org3, is 

* ' removed. Bounds occurs if, (erg2:<,Low!) Hla Hah peau mera “occurs st 
args. < 0. 


L Ets’, Low’, etc., refer to the state prier to invohing the operation. Sara 


. fit: 


fetch: 


; bottom: 5 
 seltype() of T from AT. signals, (bounds)... 


store: 


-_proctype(const int, int, T) returns (AT) signate (negetive_size) - 


every-component: Is @ copy” of ange A calle Thaby | ox 
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tte 


where T has copy: prectypeteenet T) reteras (T) 


Fill returns an array for which Low is org, ie Bie is @ (mert0, hie in which 
dulncith ‘Himes to get the 


elomenté, 4 order. Netitive_stetecoums non or" 


sleypeing of T from AT signal (bounde) 
eh 


Fetch selects the. element of wai “with wray nda wa. siete occurs if 


 Kerg2:< Lowkw: (org2->-High). 


seltypedd of T from A. signals foounige) 


These operations select the elements. with Saeed Low. end ‘Meh, respectively. 
Bounds occurs if Size = 0. 


| proctype(var AT, scat int, n signals (hiiunde) 


where T has copy: sins cosa si Steck chika 


hanes 


Store ‘iakes Elts « a new. tuple which differs from the old tnt that arg? is the element with 


- -eeray_index ‘erg2.. .Técopy:: ts biaadiadl kis ier “bunds occurs if 


addh: 


add! 


= (arg2 Aten y (eee a 


proctype(var AT, const T) 
where T has a ileahae: apace weterie <7) 


“4 


This. operation iahag a the new tue | ite’. * + reD. Tony is used to create the 


fay eoreee fe 


seelipace AT, Geant n ; ee 
' where T has copy: proctype(const 1) returns Tu) 


- This operation makes Low equal to Low’ - 1, end Elte the tuple serg2> * Ets’. ecnay is 
assed to create the-new component. eo — ‘ecvy dnd’ © ™ the 


2 Previous elements the vena) eee) ee é 


remh: 


Proctypetvar AT) returns m signals (bounds) 


PR AE SRE SE 
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- permuted.) Records are mutable objects. The state af a record of type record{id,: T py 1p? Th) 
is an n-tuple.~ The:it”. component -of the tuple: lt oF type}, “Tas Pcomponent ls le aleo called the 
er eompenerr Wersbbreviate newest Ti; Ral sos onl ae 


cess! 


__ Puttd;: 


equal: 


copy: 


. proctypetvar RT, canst T). - 


| ppectypaiccan it RT, _ RT) returns (bool) 


rec Tp To AN spe wd | ioe 7" 
. ber ach T basco posrenonst 3) nee.) e 


This Spehaion returns a new record with the tuple <orgi;,. ie angie sa. its state. tt uses 
TiScopy to copy arg). Create |s not woilabie.. te the: eer, bul. te “ee. af nplicit.in the | 
record conetrycter. oe lope ah. cot SMe oo nee 2) af SEN wy , 


seltypet) af, J, from RT nae 


This operation selects the 14-compona of its crue There is on Id operation for 
each Id). ine . oe os 


Sse: ee 


_ where T; has. cay: ! 1) returns (ip a meter 


This operation makes the stgta | of_ args afew suplenwhich diferes from the old;in that 
its si penicaias we yh beg = made iti bY sang are is a tier operation 


for wacttd). - ee ery act 


where each T; has equal: prectypeconst Tae rotnege (ooo 

See BA ae 
This operation compares. the, tynias, of. wala wih ervwenent by cousenanl ‘using 
T,Sequa) for the Id,-component. If ” the srnatencee rater retcen Soha the result is 


_— pret nereamt oy fides ee eek Se 


procty pe(const Rr) returns (RT) 
where each AT has copy: proerypetont 79 returns tt) ae ot 
he 2 aa? wee eke To Peee cyt 


| This Spar etion: ected @ record whose. dtohe ie a gina of ( the ose of the ceaieank 
soe 8 tering te mate wing be co — 


Spe Dt Ren eee ore pene Gren eee roe 


- oneof (Id): Ty My Tr] to OT below. 


11.8. ueots 


Tha cea ins centile: a defines; an. infinite costes ‘er iiremstuple of id/type 
pairs <(Idy, Ty), 0 (dyy Try where att the id's :ere-diatinss noth in-laxicagraphic:ordar, there is a 
type oneoffid): T), 1 Id,: :T,} (The user may write this type with the pairs permuted.) Oneot 
“objects are immutable. Each oneof object is repieiuilied byw pelt {i + ere of ty 
The Id; part of the’ -pair-ts' called” the’ “fag; ° wet erat je 


A x ty cag é 
We et Crees dy Gh 2 pid dle. Bie, OF be SA ee PE 


ene re _prostfpdcinne reise tn” elle: aun aes EE 
: | where T; has copy: prectypeteonet 7) siessutg ag! 


This operation returns the oneof object for the pair (id, org), using i acts There | is 
a make. a oe for ant Md). ee Tae 


is_Idj: proctypetconst OT) returns (boo!) 


This operation returns true iff the tag of 4 ong is Id, Ite ou ts opti in ‘the tagease 
statement. There le an te_Idy Operel wena Sa 


Le value _I4f: seltype() of a front ‘or dia tortor -t66) 


If the Scone | tres tag 1s, this celects the velue pert of the: eeoueel Wrong_tag 
occurs if the tag is not Id;. . This operation is used — by the a aes statement. 
There is a value 6} for eech hed pe ces 

fee oS sal as ae Ra eS 


equal: proctype(cons oT, OT) returns (boot) 
a Py ‘where ch Thea pj 71 eta at 


If the tags of the ee are Hed ae: false is seturned:: Hithe tags are both 
Idi, then the result is TjSequal applied to hued ve Speleses “i bigs seahonaielnas 


copy: proctype(const. OT) returns 401) 
oe where each T; has $ copy: prectypetconst wR retarns om) 


"This is perations returns. a.onsot object wth ie sone aa Ite;ecgument, and a value 
part a copy of the vatue part of the orgument. Jt the tog fa Id, ted the copy 4 matte 
using T)Scopy. 


od ae gtr areas 0 ER ae OT 
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11.9. Pointers 


The pointer type generator defines sn infinite class of ‘eas ‘For each area A, and | pach 


type T, ptr[A, T] is a type. The representation of pointers is fot ‘detined explicitly, but implicitly 
through the behavior of pointer sien Pointer objects are mange. We abbreviate ai T) 


mists 


alloc: 


deref: — 


equal: 


copy: 


>to PT below. 


proces pe returns eT) 


“This operation returns a pointer, thet isis to.no object, esintiaas it is equal ony to 
‘other null pointers of the same type, ond. cennot-be-deretarenced. 


proctype(const T) returns (PT) signals (ailure(string)) | 
where T has copy: proctype(const T) returns (T) 


This operation creates a copy of arg! in eres A, returning. a pointer to the newly 


_¢reated object... The copy is made using TScopy. Fellure occurs it the aree cannot 
‘contain the new object; the string signatied is “area out of SONNY 


seltype() of T from PT signals eal 


This. operation “follows” a pointer .to the object pointed at. aeLrame occurs if the 
null pointer is dereferenced. 


sirsclypeleesel PT, PT) returns (bool) 


This operation returns false unless argl and arg2 point to the seme object, or a and 
arge are both null pointers. 


procty pe(const PT) returns (PT) 
This operation returns a pointer equal to its argument. That is, the resuit points to the 
same object as the argument. 


11.10. Areas 


new: 


An area object is used for the dynamic ellocation of other objects. 


proctype(const string, int) returns (area) signals (bed_erguments) 


r 
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This operation returns a. new area. Argl is used: to: descrite: what: sort of sree 
management scheme is desired; and arg2 is. for size. Vis monaing ct Ay Saray is 
terrae entiats dependant. 


arate Procedures, iterators, and-Selectors 


Fr each’ procedure, iterator, and selector type: there: ere: thres-eperetions:.create, copy, 
and equal. Create is. not. available to: the. user; its use: is. implicit’ Inthe: compiler and: run-time: . 
. system: Copy \pegonid does not copy the object code: —— eae a. descriptor. 


4 with. the. same perameters (it-amy): cre comet tr th pe fies 
cluster are considered:to: beailfferent“wedules: ae 
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